Erreur d'execution 9

Bonjour,
J'ai un soucis avec un code qui consiste a créé un programme de demande D'ID et De mot de passe, l'erreur affiché est
Erreur d'execution 9 l'indice n'appartient pas a la selection
voici mon mon code:

Sub AfficheFeuilles(Utilisateur As String)
Dim Col As Byte, i As Byte, Lig As Integer
With Sheets("parametrage") 'dans la feuille paramétrage
    'comme on va boucler de la colonne 4 à la dernière colonne, on stocke le n° de la dern colonne :
    Col = .Cells(1, .Cells.Columns.Count).End(xlToLeft).Column
    'on cherche colonne A le nom d'utilisateur saisi et on stocke son num de ligne
    Lig = .Columns(1).Cells.Find(Utilisateur, lookat:=xlWhole).Row
    For i = 3 To Col
        If UCase(.Cells(Lig, i)) = "X" Then 'si on trouve un "X" dans la cellule
            Sheets(.Cells(1 & i).Value).Visible = True 'on affiche la feuille
        Else
            Sheets(.Cells(1 & i).Value).Visible = xlSheetVeryHidden 'sinon on la masque
        End If
    Next i
  End With
End Sub

Merci d'avance