From c71a176cdc3ad1497f06d104ad6d7f5171c6bfea Mon Sep 17 00:00:00 2001
From: A-d-r-i <charbadrien@hotmail.fr>
Date: Thu, 6 Aug 2020 16:50:50 +0200
Subject: [PATCH] Update VBA_DUPLICATION.txt

---
 VBA_DUPLICATION.txt | 15 ++++++---------
 1 file changed, 6 insertions(+), 9 deletions(-)

diff --git a/VBA_DUPLICATION.txt b/VBA_DUPLICATION.txt
index 7471510..efdfeac 100644
--- a/VBA_DUPLICATION.txt
+++ b/VBA_DUPLICATION.txt
@@ -1,16 +1,13 @@
 Sub DUPLICATION()
-    With Sheets("NOM")
+    With Sheets("SHEET1")
         dl = .Cells(Rows.Count, 1).End(xlUp).Row
-        Set ws = Sheets("DUPLI")
+        Set ws = Sheets("SHEET2")
+        NB = 6
         k = 1
         For i = 1 To dl
-            .Cells(i, 1).Copy ws.Cells(k, 1).Resize(6)
-            k = k +
+            .Cells(i, 1).Copy ws.Cells(k, 1).Resize(NB)
+            k = k + NB
         Next i
     End With
 End Sub
-#créer une croix au double clic
-Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
-  If UCase(Target) = "x" Then Target = "" Else Target = "x"
-  Cancel = True
-End Sub
+