Sub remplir()
tablo = Range("A1").CurrentRegion
For n = LBound(tablo, 1) To UBound(tablo, 1)
For m = LBound(tablo, 2) + 1 To UBound(tablo, 2)
If tablo(n, m) = "" Then
tablo(n, m) = tablo(n, m - 1)
End If
Next
Next
Range("A1").Resize(UBound(tablo, 1), UBound(tablo, 2)) = tablo
End Sub