Bonne nuit le forum, Val,
Ce que je veux dire c'est la feuille et la cellule de destination. J'ai modifié le code pour qu'il soit plus complet :
Sub Macro1()
Do Until ActiveCell = ''
Range('D1').Select
Copier:
If ActiveCell = 1 Then
ActiveCell.Range(Cells(0, 1), Cells(0, 12)).Select 'ou plus selon ta plage à copier
Selection.Copy
Sheets('Feuil2').Select
Range('A2').Select
Do Until ActiveCell = ''
If ActiveCell <> '' Then
ActiveCell.Offset(1, 0).Select
End If
Loop
ActiveSheet.Paste
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
Goto Copier
End Sub