[I]Sub Macro1()
Dim choix1 As String
Dim toto As String
toto = ThisWorkbook.Path
' Macro1 Macro
' Macro enregistrée le 02/11/2006 par f19816
Sheets("D_structure").Select
Range("b20").Select
While Not IsEmpty(ActiveCell.Value)
choix1 = ActiveCell.Value
Sheets("Feuil1").Select
Rows("1:1").Select
Range("L1").Activate
Selection.AutoFilter
Selection.AutoFilter Field:=11, Criteria1:=choix1
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets.Add.Name = choix1
ActiveSheet.Paste
Sheets(choix1).Select
Sheets("Feuil1").Select
Selection.AutoFilter[/I]