Sub MacroFusion()
Dim Plage As Range, i As Long
Sheets("Feuil1").Copy Before:=Sheets(2)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set Plage = Intersect(ActiveSheet.UsedRange, Columns(1))
For i = Plage.Rows.Count - 1 To 1 Step -1
If Plage.Cells(i, 1) = Plage.Cells(i + 1, 1) Then
With Plage.Cells(i, 1).Resize(2)
.Merge
.VerticalAlignment = xlCenter
End With
End If
Next i
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub