From df2021613b7d6ee7ad4779380bafb0d1ad62ad4a Mon Sep 17 00:00:00 2001
From: A-d-r-i <charbadrien@hotmail.fr>
Date: Thu, 6 Aug 2020 19:22:34 +0200
Subject: [PATCH] Add the version in basic

---
 VBA_CROIX.txt       |  4 ----
 VBA_DUPLICATION.txt | 13 -------------
 2 files changed, 17 deletions(-)
 delete mode 100644 VBA_CROIX.txt
 delete mode 100644 VBA_DUPLICATION.txt

diff --git a/VBA_CROIX.txt b/VBA_CROIX.txt
deleted file mode 100644
index cfbd401..0000000
--- a/VBA_CROIX.txt
+++ /dev/null
@@ -1,4 +0,0 @@
-Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
-  If UCase(Target) = "x" Then Target = "" Else Target = "x"
-  Cancel = True
-End Sub
diff --git a/VBA_DUPLICATION.txt b/VBA_DUPLICATION.txt
deleted file mode 100644
index efdfeac..0000000
--- a/VBA_DUPLICATION.txt
+++ /dev/null
@@ -1,13 +0,0 @@
-Sub DUPLICATION()
-    With Sheets("SHEET1")
-        dl = .Cells(Rows.Count, 1).End(xlUp).Row
-        Set ws = Sheets("SHEET2")
-        NB = 6
-        k = 1
-        For i = 1 To dl
-            .Cells(i, 1).Copy ws.Cells(k, 1).Resize(NB)
-            k = k + NB
-        Next i
-    End With
-End Sub
-