Appeler procédure à partir d'un nom variable

Bonjour à tous,

Je sèche... et sollicite votre aide !

Dans un UF, j'ai plusieurs toogle buttons. A l'ouverture du UF, je veux que les TB se mettent à jour en fonction de leur valeur, stockée dans un onglet.
a) je récupère la valeur. OK
b) j'ai créé une variable reprenant le nom de la procédure à lancer (NomSub) :
Private Sub TBut_1_Click (de 1 à 5)
c) je lance la procédure. Avec Call, j'ai le message "sub, function ou property attendue". Avec Run, j'ai le message "impossible de trouver la macro" + le nom, qui est correct

Voici mon code :

Private Sub UserForm_Initialize()
Dim NomSub As String
With Sheets("Info_User")    
    For i = 1 To 5
    Me.Controls("TBut_" & i).Value = .Range("N" & i + 31)
    NomSub = "TBut_" & i & "_Click"    
    Call NomSub
    Next i
End With
end sub

Si quelqu'un à une idée, d'avance merci.
Tony

EDITT: ajout de la coloration syntaxique