Sub Grouper_Lignes()
Dim Plage As Range, Cel As Range, F As Range, Group As Range
Set Plage = [E38:E47]
Plage.Resize(, 1).UnMerge
For Each Cel In Plage
If Cel <> "" Then
Set F = Plage.Find("*", Cel)
If F.Row <= Cel.Row + 1 Then
Set Group = Cel.Resize(, 2)
Else
Set Group = Cel.Resize(F.Row - Cel.Row, 2)
End If
With Group
.Merge
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
End If
Next
End Sub