Private Sub Filtrer_Click()
Dim WsC As Worksheet, WsS As Worksheet
Dim DerLigS As Long
Set WsC = Worksheets("Filtrage")
Set WsS = Worksheets("export_commande_20190412")
DerLigS = WsS.Range("A" & Rows.Count).End(xlUp).Row
WsS.Range("A1:C" & DerLigS).AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=WsC.Range("E2:F3"), CopyToRange:=WsC.Range("A7:C7"), Unique:=False
Set WsC = Nothing: Set WsS = Nothing
End Sub