Référence ligne ou colonne fausse

Bonjour,

Mon problème est simple mais je n'arrive pas à le résoudre.

J'ai trouvé il y'a peu un fichier excel permettant de créer section utilisateur et admin (qui semble inspiré de celui de ce site).

Je pense que vous connaissez ce fichier. Je l'ai bidouiller un peu et personnaliser mais j'ai un souci.

Dan la feuille ADMIN je souhaite décaler vers le bas mon tableau, mais alors le code VBA ne m'affiche plus les pages cochées "X".

J'ai beau chercher dans le code je trouve où je dois rectifier pour prendre en compte ce décalage.

Je pense qu'il s'agit de la macro AfficheFeuille.

Je début à peine en VBA (un peu de bidouillage, mais là même si je suis sûr que c'est simple je bug.

Voici le Tableau (ADMINtt ne marche pas alors que ADMIN marche et je voudrait que ADMINtt marche)

Merci pour votre aide!

Bonjour

Bienvenu

A tester

Merci!! j'y était presque en fait

    Col = .Cells([b][u]5,[/u][/b] .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(5, i).Value).Visible = True 'on affiche la feuille
        Else
            Sheets(.Cells(5, i).Value).Visible = xlSheetVeryHidden 'sinon on la masque

J'avais pas mis le premier 5 les autres j'avais essayer mais ça marché pas.

MERCI!!