Bonjour,
Ci dessous proposition en VBA
Option Explicit
Sub combler()
Dim lig_dep As Long, lig As Long
Dim valeur As String
If IsEmpty(Range("B1")) Then
MsgBox " pas de valeur sur 1° ligne"
Exit Sub
End If
Application.ScreenUpdating = False
lig_dep = 1
Do While lig <> 1
valeur = Cells(lig_dep, 2)
lig = Columns(2).Find("*", Cells(lig_dep, 2), , , xlByRows).Row
If lig = 1 Then
lig = Range("A65536").End(xlUp).Row
Range(Cells(lig_dep + 1, 2), Cells(lig, 2)) = valeur
Exit Do
Else
Range(Cells(lig_dep + 1, 2), Cells(lig - 1, 2)) = valeur
lig_dep = lig
End If
Loop
End Sub
A+
Michel