Option Explicit
Sub Ceci_ou_cela_copier()
Dim c As Range
For Each c In Sheets("Feuil2").[b:b].SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants)
If c.Offset(, -1) = "" Then
c.Copy Destination:=Sheets("Feuil1").Range(c.Address).Offset(, -1)
Else
c.Offset(, -1).Copy Destination:=Sheets("Feuil1").Range(c.Address).Offset(, -1)
End If
Next
End Sub