.....
......
.Range("L10") = "Soumission au comité": .Range("L11") = "Oui"
.Range("M10") = "Clôture comité": .Range("M11") = "Non"
.....
.....
Sheets(Sh).Range("base").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=.Range( _
"L10:M11"), CopyToRange:=.Cells(DerLig, 1)
.....
.....