Macro et variable

Bonjour à tous,

Voilà mon problème.

J'ai un fichier excel avec code vba que je suis entrain de réaliser pour mon boulot.

Afin qu'il n'ai pas de problème je suis entrain de créer des niveaux suivant les utilisateurs.

Je souhaiterai à partir du code ci-dessous, appeler la macro suivant le niveau affecté à l'utilisateur avec le fichier ci-joint.

Cordialement.

Sub changerniveau(Utilisateur As String)

Dim Col As Byte, i As Byte, Lig As Integer

With sheets("admin") 'dans la feuille administrateur

'comme on va boucler la colonne 4 à la dernière colonne, on stocke le n° de la dernière 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 niveau1 toujours activée

For i = 3 To Col

If UCase(.Cells(Lig, i)) = "X" Then 'si on trouve un "X" dans la cellule

Application.Run (.Cells(1, i)) 'on affiche la feuille

End If

Next i

End With

End Sub