Compléter colonne avec userform VBA

bonjour,

donc j'ai un tableau et pour la colonne I de excel, qui indique un type de défauts avec un numéro(de 1 a 11), j'ai créé un useform, que l'on appelle avec un commandboutton, qui propose différents choix de défauts et les converti en valeur numérique, cela fonctionne pour la première ligne qui est la de mon tableau qui est la 20 pour excel, mais je n'arrive pas a trouver le code pour compléter le reste de la colonne avec se même useforme, je débute a peine,pouvez vous m'aider.

voici le code de mon userform( a mon avis il y aura beaucoup de changement a faire).

Private Sub OK_Click()
 If Diamêtre = True And OK = False Then
   range("i20") = "1"
   Sélection_défault.Hide
 End If

 If Longueur = True And OK = False Then
   Sélection_défault.Hide
   range("i20") = "2"
 End If
 If Etat_de_surface = True And OK = False Then
   Sélection_défault.Hide
   range("i20") = "3"
 End If
 If F_O_B = True And OK = False Then
   Sélection_défault.Hide
   range("i20") = "4"
 End If
 If M_I = True And OK = False Then
   Sélection_défault.Hide
   range("i20") = "5"
 End If
    If C_B_P_P = True And OK = False Then
   Sélection_défault.Hide
   range("i20") = "6"
 End If
 If A_C_C_M = True And OK = False Then
   Sélection_défault.Hide
   range("i20") = "7"
 End If
 If Ebauches = True And OK = False Then
   Sélection_défault.Hide
   range("i20") = "8"
 End If
 If S_I_A = True And OK = False Then
   Sélection_défault.Hide
   range("i20") = "9"
 End If
 If P_N_R = True And OK = False Then
   Sélection_défault.Hide
   range("i20") = "10"
 End If
 If P_B = True And OK = False Then
   Sélection_défault.Hide
   range("i20") = "11"
 End If

End Sub

Merci d'avance.

range("I21") = ..

range("I22") = ..

Je me suis mal exprimée, en fait je veux que, a chaque fois que je clic sur le commandboutton et que j'ai fait mon choix, la valeur apparais dans une nouvelle ligne de mon tableau (ou après la dernière ligne non vide de mon tableau) sachant que mon tableau est vierge pour le moment.

j'ai vu ça sur le net mais j'arrive pas a l'appliquer

NumLigne = Range("a65536").End(xlUp).Row + 1
Cells(NumLigne, 2) = Valeur

merci quand même d'avoir répondu

Quelqu'un pour m'aider SVP

range("I" & Range("I65536").End(xlUp).Row + 1)=...

Ça fonctionne, merci bien