Sub Fusion()
Const Plage_Fusion = "P16:P381"
Const NomSh = "Feuil1"
Const Texte = "ARRET USINE"
Dim Wsh As Worksheet, Rg As Range, sRg As Range, Continuer as Boolean
Set Rg = Range(Plage_Fusion)
i = 1
While i < Rg.Rows.Count
If Rg.Cells(i, 1).Value = Texte Then
Continuer = True
j = 1
While Continuer
If Rg.Cells(i + j, 1) = Texte Then
j = j + 1
Else
Continuer = False
End If
Wend
If j > 1 Then
Application.DisplayAlerts = False
Rg.Cells(i, 1).Resize(j).Merge
Application.DisplayAlerts = True
End If
i = i + j
End If
i = i + 1
Wend
End Sub