[COLOR="DarkSlateGray"][B]Sub toto()
Dim i&, oAdr$, oDat(), oPlg As Range
oAdr = "A1" 'Adresse de la première cellule à traiter.
Set oPlg = Range(oAdr).Resize(Cells(Rows.Count, 1).End(xlUp).Row, 1)
If oPlg.Cells.Count > 1 Then
oDat = oPlg.Value
For i = LBound(oDat, 1) To UBound(oDat, 1) - 1
If IsEmpty(oDat(i + 1, 1)) Then oDat(i + 1, 1) = oDat(i, 1)
Next i
oPlg.Value = oDat
End If
End Sub[/B][/COLOR]