Salut flo, j'espère avoir bien compris ton problème.
Sub Remplir()
Dim i%
For i = 1 To 100
If Not IsEmpty(Cells(i, 1).Value) Then
Cells(i, 1).Select: Selection.Copy
Cells(i, 2).Select: Selection.PasteSpecial _
Paste:=xlPasteFormulas
End If
Next i
End Sub