Sub Bahaoui()
'
' Bahaoui Macro
'
'
Sheets("S1").Select
Range("B11").Select
Selection.CurrentRegion.Select
Selection.Copy
Sheets("RECAP").Select
Selection.End(xlUp).Select
Selection.End(xlToLeft).Select
ActiveSheet.Paste
ActiveSheet.Next.Select
Range("A3").Select
Selection.CurrentRegion.Select
Application.CutCopyMode = False
Selection.Copy
ActiveSheet.Previous.Select
Range("A1").Select
Selection.End(xlDown).Select
Range("A19").Select
ActiveSheet.Paste
ActiveSheet.Next.Select
ActiveSheet.Next.Select
Selection.End(xlUp).Select
Selection.CurrentRegion.Select
Application.CutCopyMode = False
Selection.Copy
ActiveSheet.Previous.Select
ActiveSheet.Previous.Select
Selection.End(xlDown).Select
Range("A30").Select
ActiveSheet.Paste
Rows("1:1").Select
Application.CutCopyMode = False
Selection.AutoFilter
Range("D1").Select
ActiveSheet.Range("$A$1:$D$45").AutoFilter Field:=4, Criteria1:="=Finalisé" _
, Operator:=xlOr, Criteria2:="="
Rows("6:6").Select
Range("C6").Activate
Range(Selection, Selection.End(xlDown)).Select
Rows("6:192").Select
Range("C6").Activate
Selection.Delete Shift:=xlUp
Range("C1").Select
ActiveSheet.ShowAllData
Selection.AutoFilter
End Sub