Liste d'users autorisés

Bonjour

Actuellement, je gère les droits de quelques macro comme ceci :

    If Environ("username") <> "machintruc" _
    And Environ("username") <> "trucmuch" _ Then
'ET AINSI DE SUITE
        MsgBox ("Zone réservée aux administrateurs")
    Else
'suit ici la procédure si l'user est bien machintruc ou trucmuch
    End If 

Comment écrire plus rapidement sans lister un à un tous les ayants droits, mais plutôt en fonction d'un listing qui se trouverait en colonne C (à partir de C2) de la feuille("Param")

Merci d'avance

Sub nomDeTaProcedure()

Dim utilisateurAutorise As Boolean 'declaration de variable pour definir si l'utilisateur fait partie de ceux autorisés ou non
Dim derLig As Long
Dim i As Long
utilisateurAutorise = False 'initialisation de la variable comme utilisateur non autorisé
derLig = Sheets("Param").Cells(Rows.Count, 3).End(xlUp).Row

For i = 2 To derLig Step 1
    If Sheets("Param").Cells(i, 3) = Environ("Username") Then utilisateurAutorise = True  'si le nom d'utilisateur est dans la liste de ceux autorisés, on passe la variable à true
Next

If utilisateurAutorise = False Then
    'la suite de ton code quand l'utilisateur n'est pas autorisé
    MsgBox "Vous n'êtes pas autorisé"
    Else
    'la suite de ton code quand l'utilisateur est autorisé

End Sub

Une fois de plus melch, c'est parfait

Merci beaucoup et bonne journée