Erreur 28 espace pile insuffisant vba excel

Bonjour à tous,

J'aurais besoin d'un regard neuf, je n'arrive pas à désengorger l'espace pile d'excel, pourtant je sais d'où vient le problème mais je n'arrive pas à le résoudre!!!!

Je suis en train de réaliser un formulaire de saisie via userform avec rappel automatique de certains champs insérés (comme le champs NOM dans la colonne A par exemple) mais le plus simple est que je vous montre mon code:

Code Visual Basic :

Private Sub CmbNom_Click()
If Me.CmbNom.ListIndex = -1 Then Exit Sub 'ON sort si pas de sélection
CmbNom = WS.Range("A" & Me.CmbNom.ListIndex + 2) '=MON ERREUR VIENT D'ICI
Txt1 = WS.Range("B" & Me.CmbNom.ListIndex + 2) 'On alimente les données correspondant à la ligne
Txt2 = WS.Range("C" & Me.CmbNom.ListIndex + 2) 'de l'index de la Combobox + 2 pour la ligne de Feuille
'CmbResto = WS.Range("D" & Me.CmbNom.ListIndex + 2) 'de l'index de la Combobox + 2 pour la ligne de Feuille
Txt4 = WS.Range("E" & Me.CmbNom.ListIndex + 2) 'de l'index de la Combobox + 2 pour la ligne de Feuille
Txt5 = WS.Range("F" & Me.CmbNom.ListIndex + 2) 'On alimente les données correspondant à la ligne
Txt11 = WS.Range("G" & Me.CmbNom.ListIndex + 2) 'de l'index de la Combobox + 2 pour la ligne de Feuille
Txt12 = WS.Range("H" & Me.CmbNom.ListIndex + 2) 'de l'index de la Combobox + 2 pour la ligne de Feuille

'ici on initialise les Variable pour mémoriser le valeur précédente en cas de Modif
With Me
Nom = .CmbNom
End With
End Sub



Ce code fonctionne très bien pour retourner les champs de la feuille dans mon formulaire, mais si la feuille dépasse environ 20, 30 lignes, j'ai des messages comme quoi la pile est plein "erreur d'exécution 28 espace pile insuffisant"....

Si quelqu'un aurait une idée, car je commence à désespérer!!!
Merci d'avance à tous ceux qui se pencheront sur mon problème.

Typhoon