Critères du filtre
Worksheets("Elaboration des contrats").Range("i1").Value = "cnt statut libelle" 'Titre de la colonne
Worksheets("Elaboration des contrats").Range("i2").Value = "Actif"
Worksheets("Elaboration des contrats").Range("i3").Value = "Projet"
'Filtre élaboré
With ThisWorkbook.Worksheets("Elaboration des contrats")
[U] .Range("G7:G" & Range(65536).End(xlUp).Row).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=
Worksheets("Elaboration des contrats").Range ("I1:I3"), Unique:=False[/U]
End With