num = Sheets(1).Range("A65536").End(xlUp).Row + 1
'Sheets("Base").Activate
L = Application.VLookup(TextBox4, Range(Cells(1, 5), Cells(num - 1, 5)), 1, False)
If IsError(L) Then
'MsgBox "vide"
Range("A" & num).Value = TextBox1.Value 'Nom
Range("B" & num).Value = TextBox2.Value 'Prénom
Range("C" & num).Value = TextBox3.Value 'Date de naissance
Range("D" & num).Value = ComboBox1.Value 'Club
Range("E" & num).Value = TextBox4.Value 'Licence
Unload UserForm1
Else
MsgBox "Impossible d'enregistrer car le numéro de licence est déjà utilisé"
End If