Boucle VBA copier coller

Bonjour

J’ai vraiment besoin de votre aide pour un travail trop urgent

Je veux créer une boucle VBA pour copier et coller jusqu’à la fin des données

Je veux copier a partir de feuille nommée « DATA » en commençant par la cellule B3, et coller dans la feuille « ETQT » en commençant par la cellule B2

Pour la feuille source « data » les donnés sont dans les cellules B3,B4,B5,B6 … (toujours B+1)

Mais dans la feuille de destination, je veux coller en commençant par cellule B2, puis B6 puis B10

Le travail du macro sera comme suite :

Feuille « data » cellule B3 copier = = = =>> coller vers feuille « ETQT » cellule B2

Feuille « data » cellule B4 copier = = = =>> coller vers feuille « ETQT » cellule B6

Feuille « data » cellule B5 copier = = = =>> coller vers feuille « ETQT » cellule B10

Feuille « data » cellule B6 copier = = = =>> coller vers feuille « ETQT » cellule B14

…

Jusqu’à le vide dans la cellule de la feuille « data »

Merci bcp pour votre support de me proposer un code VBA pour cette Loop

Bonjour et bienvenue,

as-tu un support (fichier excel) pour aider à te donner une réponse ?

Sub Bouton1_Cliquer()
With Sheets("ETQT")
    For i = 3 To Range("B" & Rows.Count).End(xlUp).Row
        .Range("B" & 4 * i - 10) = Range("B" & i)
    Next
End With
End Sub

bonjour

oui , en attachement mon fichier

merci beaucoup

merci bcp Steelson

c'est supper

ca bien marché pour moi

merc encors une fois

booné journée