XL 2016 Userforme

Bonjour,

voici un code et j'ai comme message d'erreur le code "1004"

Private Sub CommandButton1_Click()

Dim Ligne As Integer

Ligne = Sheets("Liste BD").Range("a1048576").End(x1Up).Row + 1

Range("a" & Ligne).Value = ComboBox1.Text
Range("b" & Ligne).Value = TextBox1.Text
Range("c" & Ligne).Value = TextBox2.Text
Range("d" & Ligne).Value = ComboBox2.Text
Range("e" & Ligne).Value = ComboBox3.Text
Range("f" & Ligne).Value = ComboBox4.Text
Range("g" & Ligne).Value = ComboBox5.Text
Unload Me
UserForm1.Show

Exit Sub


End Sub

Quelqu'un sait il où j'ai fait une erreur?

merci d'avance

Olivier