Add the version in basic

VBA_CROIX.txt

@@ -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

VBA_DUPLICATION.txt

@@ -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
-