Linebaker

Bonsoir le forum, Val,

Quelque chose comme ça devrait faire l'affaire :

Sub Macro1()
Do Until ActiveCell = ''
Range('D1').Select
If ActiveCell = 1 Then
Selection.Copy
Sheets('Ta_feuille').Select
Range('ta_cellule').Select
Do Until ActiveCell = ''
If ActiveCell = 1 Then
ActiveCell.Offset(1, 0).Select
End If
Loop
ActiveSheet.Paste
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
End Sub