Sub Macro1()
Dim i As Integer, j As Integer
'N° ligne départ
i = 4
'Ne pas afficher les messages d'alertes
Application.DisplayAlerts = False
'Faire tant que la cellule n'est pas vide
'Le 1 de cells représente la Colonne 1 donc A
Do While Not IsEmpty(Cells(i, 1))
'mémorise la position de la 1ere valeur j=i signifie de mémoriser dans la variable j, la valeur actuelle de i
j = i
'faire tant que la cellule est = à celle en dessous (d'ou le i+1)
Do While Cells(j, 1) = Cells(i + 1, 1)
'fusionner
Range(Cells(i, 1), Cells(i + 1, 1)).Merge
'passer à la ligne suivante
i = i + 1
Loop
'passer à la ligne suivante
i = i + 1
Loop
End Sub