Sub etirer()
dl = Feuil1.Cells(Rows.Count, 1).End(xlUp).Row
i = 1
Do While Feuil1.Cells(i, 1).Row < dl
With Feuil1
If .Cells(i + 1, 1) = "" Then
.Cells(i, 1).AutoFill Range(.Cells(i, 1), .Cells(i, 1).End(xlDown).Offset(-1, 0)), 1
End If
i = i + 1
End With
Loop
End Sub