Aide pour VBA

Bonjour,
Il a possibilité d'avoir plus de 13 feuilles dans le dossier.
Exemple 25 et plus des feuilles - renommée, exemple : les mois de l'année, accueil, etc......
En utilisant votre code une erreur se produit si le nombre de feuille est supérieur à 13 dans cette partie de la macro

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
'boucle à partir de 3 car Feuil1 toujours affichée
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

L'erreur se produit à la ligne :
Sheets(.Cells(1, i).Value).Visible = True 'on affiche la feuille
Merci de votre aide
Cordialment