Pb VBA Ecrire dans la cellule du dessous

Bonjour, à tous.

Je suis toujours en train d'éditer ma macro et je rencontre encore un petit problème.

Je vous explique un peu: J'ai une fenêtre avec plusieurs checkbox et quand je clic sur ok j'ai un code qui regarde quel checkbox a été cliquée et écrit alors dans la colonne A la valeur des différentes checkbox cliqué l'un en dessous de l'autre. Voici le code que sa me donne:

Private Sub CommandButton1_Click()
Dim Ctrl As Control, r
r = Range("a9").End(xlDown).Row + 1
For Each Ctrl In Me.Controls
'Si une CheckBox est cliquer on écrit la valeur de la checkBox dans la cellule du dessous
If TypeName(Ctrl) = "CheckBox" Then
If Ctrl.Value = True Then
ActiveSheet.Cells(r, 1) = Ctrl.Caption
r = r + 1
End If
End If
Next Ctrl
Set Ctrl = Nothing
Unload limiteur
End Sub

Bon ça marche bien y a pas de soucis là dessus.

J'aimerai faire pareil mais avec des TextBox, si les Textbox 1,2,3 sont changés, quand je clique sur Ok ce que l'on a écrit dans les textbox s'écriera l'un en dessous de l'autre, j'imagine que le code ne doit pas être très différent.

J'èspere avoir été suffisament explicite.

Merci d'avance pour toute vos remarques ou remarques.

Cordialement,

Grobibi34