XL 2019 Problème dans un code vba

Sub Compteur1_QuandChangement()

 Dim lig As Long
 
 'On selection la feuille Congés - Heures Sup
    Sheets("Congés - Heures Sup").Select
    
    'On effacce le contenu des colonnes de la feuille Congés - Heures Sup
    Range("B3:X300").ClearContents
      
   'Selection de la cellule A1
    Range("A1").Select
    
    'On a fini d'effacer la feuille Congés - Heures Sup
    
    'On selection la feuille Paramètre
  [COLOR=rgb(250, 197, 28)]  [/COLOR][COLOR=rgb(0, 0, 0)]Sheets("Paramètre").Select[/COLOR]
    
     'On effacce le contenu de la colonnes Heures Récuperation Lundi de Pentecôte
    Range("R6:S371").ClearContents
    
    
 'On a fini d'effacer les colonnes Heures Récuperation Lundi de Pentecôte et Heures Supplémentaire de la feuille Parametre
    
    
    For lig = 5 To Cells(Rows.Count, "H").End(xlUp).Row - 1
    
    ' Remplissage des colonnes Heures Récuperation Lundi de Pentecôte et Heures Supplémentaire pour les jours suivant
    ' E = Jours férié
    ' M = Dimanche = 1
    ' U= Congés
    ' Y = Maladie
    ' G = 29 Février
    If IsDate(Cells(lig, "H")) And Cells(lig, "E") = 1 Or IsDate(Cells(lig, "H")) And Cells(lig, "M") = 1 Or IsDate(Cells(lig, "H")) And Cells(lig, "U") = 1 Or IsDate(Cells(lig, "H")) And Cells(lig, "Y") = 1 Or IsDate(Cells(lig, "H")) And Cells(lig, "G") = 1 Then
    Cells(lig, "R").Value = 0
    Cells(lig, "S").Value = 0
    End If ' Fin remplissage des colonnes Heures Récuperation Lundi de Pentecôte et Heures Supplémentaire pour les jours suivant

    
    ' Remplissage de la colonnes Heures Récuperation Lundi de Pentecôte
    ' M = Samedi = 7
    If IsDate(Cells(lig, "H")) And Cells(lig, "M") = 7 Then
    Cells(lig, "R").Value = 0
    End If ' fin du  Remplissage de la colonnes Heures Récuperation Lundi de Pentecôte
    
    Next lig
      
      
       'On selection la feuille Calendrier
        Sheets("Calendrier").Select
       'Selection de la cellule A1
        Range("A1").Select
End Sub