Sub Macro8()
'
' Macro8 Macro
' compteur +1
'
'
Call Macro10
Sheets("mise a jour planning").Select
[h7] = [h7] + 1
[c7] = [c7] + 7
If Range("H7") = 54 Then Range("H7") = 1
Dim x As Byte
x = Range("H7")
If x Mod 2 = 0 Then
Sheets("mise a jour planning").Select
[j28] = "régine"
[j29] = "animateur"
Else
Sheets("mise a jour planning").Select
[j28] = "animateur"
[j29] = "régine"
End If
Application.ScreenUpdating = False
Range("j27").Cut
Range("j20").Insert Shift:=xlDown
Application.ScreenUpdating = True
ActiveWorkbook.Names.Add Name:="ListChoisis", RefersToR1C1:= _
"='mise a jour planning'!R20C10:R30C10"
Call Macro9
End Sub