XL 2013 Fusion conditionnelle

Sub semaine()
debut = 4
Application.DisplayAlerts = False
For n = 4 To Range("B" & Rows.Count).End(xlUp).Row
    If Weekday(Range("B" & n)) = 1 Then
       Range("A" & debut & ":A" & n).MergeCells = True
       debut = n + 1
    End If
    If n = Range("B" & Rows.Count).End(xlUp).Row Then
        Range("A" & debut & ":A" & n).MergeCells = True
    End If
Next
End Sub
Sub location()
debut = 4
Application.DisplayAlerts = False
For n = 4 To Range("B" & Rows.Count).End(xlUp).Row
    If Weekday(Range("B" & n)) = 6 Then
        Range("G" & debut & ":G" & n).MergeCells = True
        debut = n + 3
    End If
    If n = Range("B" & Rows.Count).End(xlUp).Row Then
        Range("G" & debut & ":G" & n).MergeCells = True
    End If
Next
End Sub