Sub Copier_les_lignes_I_21()
'
' Macro6 Macro
'
'
Rows("1:1").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Rows("1:33").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.AutoFilter
Range("A1").Select
ActiveSheet.Range("$A$1:$F$32").AutoFilter Field:=1, Criteria1:="=*I_21*", _
Operator:=xlAnd
Rows("5:5").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Cut
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil2").Select
Range("A2").Select
ActiveSheet.Paste
Sheets("Feuil1").Select
Range("A1").Select
Application.CutCopyMode = False
Selection.AutoFilter
End Sub