Sub Extraire()
Sheets("Extraction").Range("B7:H26").ClearContents
Range("Base").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("K1:K2"), CopyToRange:=Range("B6:H6")
Range("E27").Formula = "=SUM(R[-20]C:R[-1]C)"
Range("F27").Formula = "=SUM(R[-20]C:R[-1]C)"
Range("G27").Formula = "=SUM(R[-20]C:R[-1]C)"
Range("H27").Formula = "=SUM(R[-20]C:R[-1]C)"
Range("B6").Select
End Sub