Dim plage As Range
'------
pr_PlageLiée.AutoFilter Field:=1, Criteria1:=sCritere1
For Each rligne In pr_PlageLiée.SpecialCells(xlCellTypeVisible).Rows
If rligne.Cells(1, 1).Offset(0, 9).Value = sCritere2 Then _
Set plage = [COLOR="Red"]Union[/COLOR](rligne, IIf(plage Is Nothing, rligne, plage))
Next rligne
If Not plage Is Nothing Then plage.EntireRow.Delete