* Bonjour *


J’ai créé un tableau qui se situe en (A1 : H10) je voudrais à mesure des semaines que mon tableau soit automatiquement recopié en dessous dès qu’il trouve une ligne vide et en laissant une ligne vide à chaque fois entre les tableaux, pour le moment j’en suis là : mais cela ne fonctionne pas ?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Test1()
'
' Test1 Macro
'
    nombreligne = 200
    c = 1
       Do While Not IsEmpty(Cells(c, 2))
   c = c + 1
   Loop
    Rows("1:10").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("J10").Select
End Sub
merci pour vos idées.