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