car les nuits de pleine lune, Staple se change en lycanthrope !Staple à dit:Je n'utilise le VBA qu'en dernier recours
(où les nuits de pleine lune et les mois en bre )
Sub Fusionner_COL_A()
With Application
.DisplayAlerts = 0: .ScreenUpdating = 0
Set p = Range(Cells(1), Cells(Rows.Count, 1).End(3))
vBis:
For Each c In p
If c.Value = c.Offset(1, 0).Value And Not IsEmpty(c) Then
Range(c, c.Offset(1, 0)).Merge
c.VerticalAlignment = -4108
GoTo vBis
End If
Next
.DisplayAlerts = -1: .ScreenUpdating = -1
End With
End Sub