Re,
Bon ça y est j'ai le code il fonctionne !!
Le voici si quelqu'un le désire ;)
Private Sub CommandButton1_Click()
Dim crit As Range
If TextBox1 = "" Then
MsgBox "Nom et prénom, obligatoire"
Else
cmpt = Range("A" & Rows.Count).End(xlUp).Row + 1
Range("a" & cmpt) = TextBox1
End If
Range("A1").Select
Set crit = Range("A2:A" & cmpt)
ActiveWorkbook.Worksheets("LIST_NOMS").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("LIST_NOMS").Sort.SortFields.Add Key:=crit, _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("LIST_NOMS").Sort
.SetRange Range("A1:A" & cmpt)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
Voili voilou, et merci pour tout
--