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