Salut Philippe,
une manière de faire...
Private Sub CommandButton1_Click()
'
For x = 1 To Cells(Rows.Count, 3).End(xlUp).Row
Cells(x, 2) = IIf(Cells(x, 1) <> "", Cells(x, 3), "")
Next
'
End Sub
Bien d'autres façons en fonction de l'importance des données à traiter!
A+