C'est bon j'ai réussi à trouver un code qui fonctionne.

Je vous le donne si ça peux aider quelqu'un d'autres

Sheets("Feuil2").Select
Range("I3:I12").Select
Selection.ClearContents
Sheets("Feuil1").Select
Range("E14").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Feuil2").Select
Range("I3").Select
ActiveSheet.Paste
Range("I2").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Sort Key1:=Range("I2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

Dim DerLig As Long
On Error Resume Next
ActiveWorkbook.Names("Liste1").Delete
On Error GoTo 0
DerLig = Worksheets("Data").Columns(9).End(xlDown).Row
ActiveWorkbook.Names.Add Name:="Liste1", RefersToR1C1:="=Data!R2C9:R" & DerLig & "C9"


Sheets("Feuil2").Select
Range("J3:J12").Select
Selection.ClearContents
Sheets("Feuil1").Select
Range("L14").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Feuil2").Select
Range("J3").Select
ActiveSheet.Paste
Range("J2").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Sort Key1:=Range("J2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

Dim DerLig2 As Long
On Error Resume Next
ActiveWorkbook.Names("Liste2").Delete
On Error GoTo 0
DerLig2 = Worksheets("Data").Columns(10).End(xlDown).Row
ActiveWorkbook.Names.Add Name:="Liste2", RefersToR1C1:="=Data!R2C10:R" & DerLig2 & "C10"


Avec ce bout de code, les données rentrées par l'utilisateur sont bien copiées dans la feuille 2 puis trié (par ordre croissant) et enfin les deux objets (liste 1 & 2) sont bien renseigné.

Par contre je n'ai pas trouver la solution pour charger à chaque changement Liste1 dans combo 1 (qui ce trouve sur feuille 3) et Liste 2 dans combo 2 (qui ce trouve sur feuille 3 aussi). Si quelqu'un à une solution ça serai sympa de ma la communiquer.

@+