Sub GriserLesJoursDeSemaine()
'On vérifie que 'P5S' et 'T5S' et 'PostesAM' sont au même mois
If Range("B7").Value <> Sheets("P5S").Range("T1").Value Or Range("B7").Value <> Sheets("T5S").Range("T1").Value Then
MsgBox "Les feuilles ''P5S'', ''T5S'' et ''PostesAM'' ne sont pas du même mois !", 16
End
End If
'pour chaque jour du mois: colonne B
For Each Cell In Range("B8:B" & Range("B" & Rows.Count).End(xlUp).Row)
'On cherche quelle équipe est de PosteAM
'on vérifie que la cellule ne soit pas vide
If Cell <> "" Then
Set d = Cell.Offset(0, 2).Resize(1, 6).Find("S", LookIn:=xlValues)
If Not d Is Nothing Then
equipe = Cells(6, d.Column)
End If
With Sheets("P5S")
'recherche de la position de l'équipe concernée (dans la ligne 5)
Set colonne = .Range("D5:W5").Find(equipe, LookIn:=xlValues)
'recherche de la ligne du jour en cours (dans la colonne A)
Set ligne = .Range("A8:A" & .Range("A" & .Rows.Count).End(xlUp).Row).Find(Day(Cell.Value))
'coloration
.Cells(ligne.Row, colonne.Column).Resize(1, 4).Interior.color = RGB(191, 191, 191)
End With
With Sheets("T5S")
'recherche de la position de l'équipe concernée (dans la ligne 5)
Set colonne = .Range("D5:W5").Find(equipe, LookIn:=xlValues)
'recherche de la ligne du jour en cours (dans la colonne A)
Set ligne = .Range("A8:A" & .Range("A" & .Rows.Count).End(xlUp).Row).Find(Day(Cell.Value))
'coloration
.Cells(ligne.Row, colonne.Column).Resize(1, 4).Interior.color = RGB(191, 191, 191)
End With
End If
NextCell:
Next Cell
End Sub