Sub Extrait()
[b12:g100].Clear
Sheets("Feuil1").Range("B11:G1000").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("Feuil2!Criteria"), CopyToRange:=Range("B11:G11")
[G65000].End(xlUp).Offset(1, 0).Select
ActiveCell.Offset(, -1) = "Total"
If ActiveCell.Row > 12 Then
ActiveCell = "=SUM(G12:G" & ActiveCell.Offset(-1, 0).Row & ")"
End If
'---- présentation
derlig = [c65000].End(xlUp).Row
For lig = 12 To derlig
Cells(lig, "b").Resize(, 6).Interior.Color = 13434879
Cells(lig, "b").Resize(, 6).Font.ColorIndex = IIf(lig Mod 2, 3, 5)
Next lig
Set champ = Cells(derlig + 1, "f").Resize(, 2)
champ.Interior.Color = 10213316
champ.Font.Bold = True
champ.Select
bordure
End Sub