Beug sur code bouton clic

Bonjour

Je cherche avec ce code bouton sur une UF a mettre dans la feuille "Inscriptions" ce qui est contenu

dans la Cmb 1 Sauf que jai une erreur sur cette ligne

ligne = Sheets("Inscriptions").Range("A 65000").End(xlUp).Row + 1

Pouvez vous me dire ou est mon erreur

Je vous remercie

Private Sub CommandButton1_Click()

    If ComboBox1 <> "" Then
     Dim ligne As Integer
      Worksheets("Inscriptions").Select
        ligne = Sheets("Inscriptions").Range("A 65000").End(xlUp).Row + 1
          Cells(ligne, 3) = ComboBox1.Value
            Unload UserForm1
              UserForm1.Show
               End If
                End Sub

Je joins le code initialisation de l'UF

Private Sub UserForm_Initialize()

    Set ws = Worksheets("Noms")
    a = ws.Range("A2:A" & ws.Range("A65000").End(xlUp).Row).Value
    ComboBox1.List = a    
     End Sub

Bonjour

Je cherche avec ce code bouton sur une UF a mettre dans la feuille "Inscriptions" ce qui est contenu

Heu... même sujet qu'ici non ?? --> https://forum.excel-pratique.com/excel/modifier-code-vba-169798

Hello,

A premiere vue c'est ton espace

:

Range("A 65000")

:

Range("A65000")