macro pour griser des cellules en fonction des lignes et colonnes

Sub Griser()
Dim c As Range
For Each c In Rows(1).SpecialCells(xlCellTypeConstants, 23)
  If c = "jeu" Or c = "ven" Then
    With c.Offset(17, 0).Interior
      .Pattern = xlSolid
      .ThemeColor = xlThemeColorDark2
    End With
    c.Offset(17, 0).Value = "70%"
  End If
Next
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cel As Range
Application.EnableEvents = False
For Each Cel In Rows(1).SpecialCells(xlCellTypeConstants)
  If InStr(Cel, "sam dim") = 0 And Cel.Offset(17, 0) <> "" Then
    If Cel.Offset(18, 0) = "" Then Cel.Offset(18, 0) = "C"
    If Cel.Offset(19, 0) = "" Then Cel.Offset(19, 0) = "C"
  End If
Next
Application.EnableEvents = True
End Sub

Dim Cel As Range 'définit la variable Cel en tant que cellule
Application.EnableEvents = False 'Suspend le déclenchement de la procédure lors de la modification des cellules déclenchée par la macro
For Each Cel In Rows(1).SpecialCells(xlCellTypeConstants) 'cette boucle balaie toutes les cellules de la ligne 1 qui contiennent une valeur
  If InStr(Cel, "sam dim") = 0 And Cel.Offset(17, 0) <> "" Then 'si la cellule (Cel)  ne contient ni "sam" ni "dim" alors les instructions suivantes jusqu'au Next sont effectuées. Sinon, le Next renvoie à la cellule suivante
    If Cel.Offset(18, 0) = "" Then Cel.Offset(18, 0) = "C" 'si la cellule située 18 lignes sous Cel et sur la même colonne est vide elle se voit affectée la valeur "C". Offset(ligne, colonne) signifie décalage de 18 lignes en dessous et 0 colonne par rapport à Cel
    If Cel.Offset(19, 0) = "" Then Cel.Offset(19, 0) = "C" 'idem ci-dessus
  End If
Next
Application.EnableEvents = True 'rétablit la détection de modification des cellules