BONJOUR VINVENZO
TU AS PLUSIEURS CHOIX MAIS SI TU N'A QUE 5 ZONES DE SAISIES TU PEUX FAIRE AU PLUS SIMPLE
Dim Dl As Long
Dim x As Byte
With Sheets("Feuil2")
.Activate
Dl = .Range("A65536").End(xlUp).Row + 1
.Cells(Dl, 1).Value = Me.TextBox1.Value
.Cells(Dl, 2).Value = Me.TextBox2.Value
.Cells(Dl, 3).Value = Me.TextBox3.Value
.Cells(Dl, 4).Value = Me.TextBox4.Value
.Cells(Dl, 5).Value = Me.ComboBox1.Value
Unload Me
'tri selon le nom
.Range("A1").CurrentRegion.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:= _
xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End With