Bonjour Bertrand,
Tu trouveras en pièce jointe un exemple qui, si j'ai bien compris devrait répondre au problème posé
=====================================================
Private Sub CommandButton2_Click()
Set CelSrc = Range("A2") 'Première cellule de la zone contenant les données à ventiler
Set CelDst = Range("C14") 'Première cellule de la zone contenant les données ventilées
Do While CelSrc.Value <> ""
CelSrc.Copy Destination:=CelDst
Set CelSrc = CelSrc.Offset(1, 0)
Set CelDst = CelDst.Offset(2, 0)
Loop
End Sub
=====================================================
Cordialement
Omicron.