Bonjour Grisan29
Dsl sui un pe nouveau dans le forum mais ta raison c noté.
Et pour le code merci les listes déroulantes marchent parfaitement mais quand je click sur ajouter il m met un message d'erreur
Private Sub CommandButton1_Click()
Dim Dl As Long
Dim x As Byte
With Sheets("Feuil2")
.Activate
Dl = .Range("A65536").End(xlUp).Row + 1
For x = 1 To 7
[color=#FFFF00].Cells(Dl, x).Value = Me.Controls("TextBox" & x).Value[/color]
Next x
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
End Sub