Private Sub CommandButton1_Click()
If LeNom.Value = "" Then
Exit Sub
End If
Sheets("Base").Activate
DerLigne = Sheets("Base").Range("A65536").End(xlUp).Row + 1
' Pour l'espace aprés le nom = Dupond + 1 esspace
LeNom = LeNom & " "
' fin
Sheets("Base").Range("A" & DerLigne) = LeNom
' Ici fonction droite, le prenom, on garde les deux premiéres lettres
LePrenom = Left(LePrenom, 2)
' Fin
Sheets("Base").Range("B" & DerLigne) = LePrenom
Sheets("Matrice").Visible = True
Sheets("Matrice").Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = LeNom
ActiveSheet.Range("A2") = LeNom
ActiveSheet.Range("B2") = LePrenom
Unload Me
End Sub