Pb bouton

Bonjour,

voila, je suis dans un envirronement VBA sous excel

je créé des boutons dynamiquement, ces boutons sont censé ouvrir un userform sur lequel chaque bouton récupére une donnée. ceci fonctionnait jusqu'à ce que :

j'ai ajouté un moyen pour que les boutons ne se mettent pas les uns sur les autres lors de la génaration de ceux ci : boucle de création avec la déportation nécessaire.

maintenant avec cette modif : seul le dernier bouton générer agit correctement et les autres je ne peux plus cliquer dessus .

une idée ? voici mon code car je ne vois aps d'où viens le problème et c'est une horreur lol, un peu d'aide ne serait aps de refus :


Dim k As Integer
Dim deport As Integer
Dim inter As Integer
Dim i As Integer
deportinit = 5
inter = 5

k = 3
i = 3

For i = 3 To 7

While k <> 7
k = k + 1
deport = deport + 20 * deportinit
Set Bouton = AutoBe.Controls.Add("Forms.CommandButton.1", "Bouton" & k, True)

With Bouton
'.Caption = k 'AutoBe.nom_bouton
.Left = deportinit + deport
.Top = 12

End With
i = i + 1

Wend
Next


merci pour votre aide