Problème de déclaration (c'est la période)

......
For Lig = 9 To Range("C65536").End(xlUp).Row
            If ((Range("C" & Lig) >= deb) And (Range("C" & Lig) <= fin)) Then
            If IsNumeric(ComboBoxGroupe) Then
               ComboGr = CLng(ComboBoxGroupe)
             Else
               ComboGr = ComboBoxGroupe
             End If
             If IsNumeric(ComboBoxCategorie) Then
               ComboCat = CLng(ComboBoxCategorie)
             Else
               ComboCat = ComboBoxCategorie
             End If
                If (Range("D" & Lig) = ComboBoxMode Or md) And (Range("F" & Lig) = ComboBoxTiers Or th) And (Range("G" & Lig) = ComboGr Or gp) And (Range("H" & Lig) = ComboCat Or cat) And Range("I" & Lig) = "o" Then
......