Sub remplissage()
Dim Lettre$, Lg&, C As Range 'déclaration des variable
Lg = Range("K" & Rows.Count).End(xlUp).Row'derniere ligne
For Each C In Range("L1:L" & Lg) ' passage sur toute les cellules
If C.Value <> "" Then Lettre = C.Value Else C.Value = Lettre 'si la cellule n'est pas vide alors lettre=c sinon c=lettre
Next C
End Sub