Private Sub valider_Click()
Dim c As Range
'Insertion sur la ligne selectionnée
Dim n As Long 'Integer
n = Sheets("per").Range("a65000").End(xlUp).Row + 1
For Each c In Sheets("per").Range("a1:a" & n)
If c = Me.nom And c.Offset(0, 1) = Me.prenom Then Exit Sub
Next c
With Sheets("per")
' n = .Range("A1").End(x1down).Row
'Essai
.Cells(n, 1).Value = Me.nom
.Cells(n, 2).Value = Me.prenom
.Cells(n, 3).Value = Me.matricule
.Cells(n, 4).Value = Me.grade
'Tri selon l'ordre alphabétique
.Range("a1:d" & n).Sort _
Key1:=.Columns("A"), _
Header:=xlYes
End With
'Reset du formulaire
Unload insernom
'Boite de dialogue
MsgBox "Une personne créée", vbOKOnly, "Message"
End Sub