Sub Finaliser()
Dim c As Range
Sheets("Planning").Copy after:=Sheets(Sheets.Count)
Do
Application.DisplayAlerts = False
With Sheets("Planning (2)")
For Each c In .Range("C5:AE35")
If c <> "" And c.Offset(, 1) <> "" Then Range(c, c.Offset(, 1)).Merge
If c <> "" Then c.Interior.Color = RGB(255, 217, 102)
If c <> "" Then c.Font.Color = RGB(255, 0, 255)
Next c
End With
Loop While MsgBox("Voulez-vous continuer la fusion ?", vbQuestion + vbYesNo + vbDefaultButton1) = vbYes
Application.DisplayAlerts = True
End Sub