Userform / Gestion clients

Private Sub CommandButton2_Click()
'Correspond au programme du bouton Valider
Dim L As Integer

If MsgBox("Etes-vous certain de vouloir INSERER ce nouveau contact ?", vbYesNo, "Demande de confirmation") = vbYes Then
L = Sheets("Clients").Range("B65536").End(xlUp).Row + 1 'Permet de se positionner sur la dernière ligne de tableau NON VIDE

Range("A" & L).Value = ComboBoxRef 'colonne vide qui me servira de pointage ou de numérotation automatique.
Range("B" & L).Value = Lbl_Ref_Client
Range("C" & L).Value = TextBox1 'Nom du groupe
Range("D" & L).Value = ComboBoxTypeGr 'Type Groupe
Range("E" & L).Value = TextBox4 'Responsable
Range("F" & L).Value = TextBox2 'Nom
Range("G" & L).Value = TextBox3 'Prénom
Range("H" & L).Value = TextBox5 'Surnom
Range("I" & L).Value = TextBox6 'Tel
Range("J" & L).Value = TextBox7 'Mail

MsgBox ("Client inséré dans fichier") 'Vous informe que le présent contact est insérer dans votre tableau Excel.

End If
Unload Me 'Ferme le formulaire
formimg.Show vbModeless 'Ouvre le formulaire
End Sub

L = Sheets("Clients").Range("B65536").End(xlUp).Row + 1

Range("A" & L).Value = ComboBoxRef
Etc etc

With  Sheets("Clients")
L =.Range("B65536").End(xlUp).Row + 1 'Permet de se positionner sur la dernière ligne de tableau NON VIDE
.Range("A" & L).Value = Me.ComboBoxRef 'colonne vide qui me servira de pointage ou de numérotation automatique.
.Range("B" & L).Value = Me.Lbl_Ref_Client
Etc etc