Macro ajouter + trier

Rebonjour,
Je suis décidemment abonné à ce forum.
J'ai créé un UserForm en reprenant les trucs qu'on m'a donné ici, et que j'essaye de bidouillé.
Je voudrais récupéré le contenu d'une ComboBox pour l'envoyer dans une colonne. Pour ça, c'est bon.
J'aurais aimé que lorsqu'une valeur est ajoutée, la colonne soit automatiquement triée et ça plante au niveau du code qui trie :
Référence de tri non valide, erreur d'exécution 1004
Voici le code (en vert le code pour trier) :

If Col = "SDB 6" Then
Sheets("ListStagiaire").Range("A65536").End(xlUp).Offset(1, 0).Value = TextBox1.Value
Sheets("ListStagiaire").Range("A3:A50").Sort Key1:=Range("A3"), Order1:=xlAscending

ElseIf Col = "SDB 6 bis" Then
Sheets("ListStagiaire").Range("B65536").End(xlUp).Offset(1, 0).Value = TextBox1.Value
Sheets("ListStagiaire").Range("B3:B50").Sort Key1:=Range("B3"), Order1:=xlAscending

ElseIf Col = "SDB 7" Then
Sheets("ListStagiaire").Range("C65536").End(xlUp).Offset(1, 0).Value = TextBox1.Value
Sheets("ListStagiaire").Range("C3:C50").Sort Key1:=Range("C3"), Order1:=xlAscending

End If

Merci