Variable non definie

BONJOUR

L=Sheets("Achats").Range("A"1048576").End(xIUp).Row+1

le programme :

Private Sub commandbutton3_Click()
Dim L As Integer
If MsgBox("Etes-vous certain de vouloir INSERER ce nouveau dossier ?", vbYesNo, "Demande de confirmation") = vbYes Then
L = Sheets("Revente").Range("a1048576").End(xIUp).Row + 1 'Permet de se positionner sur la dernière ligne de tableau non vide
Range("A" & L).Value = ComboBox1 'Insere la donnée de la liste déroulante dans la colonne A
Range("B" & L).Value = TextBox1
Range("C" & L).Value = TextBox2
Range("D" & L).Value = TextBox3
Range("E" & L).Value = TextBox4
Range("F" & L).Value = TextBox5
Range("G" & L).Value = TextBox6
Range("H" & L).Value = TextBox7
Range("I" & L).Value = TextBox8
Range("J" & L).Value = TextBox9
Range("K" & L).Value = TextBox10
Range("L" & L).Value = TextBox11
Range("M" & L).Value = TextBox12
Range("N" & L).Value = TextBox13
Range("O" & L).Value = TextBox14
Range("P" & L).Value = TextBox15
Range("Q" & L).Value = TextBox16
Range("R" & L).Value = TextBox17
Range("S" & L).Value = TextBox18
Range("T" & L).Value = TextBox19
Range("U" & L).Value = TextBox20
Range("V" & L).Value = TextBox21
Range("W" & L).Value = TextBox22
Range("X" & L).Value = TextBox23
Range("Y" & L).Value = TextBox24
Range("Z" & L).Value = TextBox25
Range("AA" & L).Value = TextBox26
Range("AB" & L).Value = TextBox27
Range("AC" & L).Value = TextBox28
Range("AD" & L).Value = TextBox29
Range("AE" & L).Value = TextBox30
Range("AF" & L).Value = TextBox31
Range("AG" & L).Value = TextBox32
End If
'code permettant de modifier le format de la plage de cellule en format nombre
With xs.Range("j2:j10")
.NumberFormat = "o"
.Value = .Value
End With
MsgBox ("Produit inséré dans fichier sélectionné") 'Vous informe que le présent dossier est insérer dans votre tableau
Unload Me 'Fermer le formulaire
UserForm1.Show 'Ouvre le formulaire
End Sub