Sub Complete()
Dim FinLigne As Long, Encours As Long
Application.ScreenUpdating = False
FinLigne = Range("A" & Rows.Count).End(xlUp).Row
For Encours = 1 To FinLigne
If Range("A" & Encours) = "" Then Range("A" & Encours) = Range("A" & Encours - 1)
Next Encours
Application.ScreenUpdating = True
End Sub