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

---
 CROSS.bas       |  5 +++++
 DUPLICATION.bas | 14 ++++++++++++++
 2 files changed, 19 insertions(+)
 create mode 100644 CROSS.bas
 create mode 100644 DUPLICATION.bas

diff --git a/CROSS.bas b/CROSS.bas
new file mode 100644
index 0000000..f09e002
--- /dev/null
+++ b/CROSS.bas
@@ -0,0 +1,5 @@
+Attribute VB_Name = "CROSS"
+Sub CROSS(ByVal Target As Range, Cancel As Boolean)
+	If UCase(Target) = "x" Then Target = "" Else Target = "x"
+		Cancel = True
+End Sub
diff --git a/DUPLICATION.bas b/DUPLICATION.bas
new file mode 100644
index 0000000..4f757bb
--- /dev/null
+++ b/DUPLICATION.bas
@@ -0,0 +1,14 @@
+Attribute VB_Name = "DUPLICATION"
+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
+