Bonjour le forum,

J'ai de nouveau besoin de votre aide

sur le code suivant, j'aurai souhaité, plutôt que de tout rentrer à la main qu'il y ai une chaîne automatique, c'est à dire que la macro me copie et colle toutes les cellules de A1:A1000 par exemple avec un pas de 14, (to step ?)

Sheets("Sheet0").Range("A1,A15,A29,A43,A57,A71,A85,A99").Copy Destination:=Sheets("FEVRIER").Range("B3")

Sur son "grand frère" avec collage spécial, j'aurai souhaité la même chose :Sheets("Sheet0").Range("B6:B8").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Fevrier").Select
    Range("D3").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True

pas de 14 égalementmais collage pas de 1 ce qui copier en B6:B8 va en D3, ce qui est copié en B20:B22 va en D4

Je ne pense pas que ce soit irréalisable mais je galère un peu !

En vous remerciant

j'ai trouvé tout seul comme un grand avec l'aide de forums

question 1 :

For h = 1 To 1000
        Cells(h, 1).Offset(0, 2) = Cells(h, 1)
    Next h

question 2 :

For i = 6 To 1001 Step 14
        Cells(i, 2).Offset(-5, 3) = Cells(i, 2)
    Next i
    
    For j = 7 To 1002 Step 14
        Cells(j, 2).Offset(-6, 4) = Cells(j, 2)
    Next j
    
    For k = 8 To 1003 Step 14
        Cells(k, 2).Offset(-7, 5) = Cells(k, 2)
    Next k

à bientôt