Sub recopie()
Application.ScreenUpdating = False
With Sheets("Avant Macro")
For Each c In .Range("C2:C" & .Range("C" & Rows.Count).End(xlUp).Row)
If c <> "" And c.Offset(0, -1) = "" Then _
c.Offset(-1, -2).Resize(1, 2).Copy c.Offset(0, -2)
Next c
End With
End Sub