Salut Jex, le Forum
Simplement en changeant la Formule :
=EQUIV(A50;$D$50:$D$52;0)
Et si tu dois le faire par VBA, il faut faire ceci :
Sub ListExclusionList()
With Sheets(1).Range("F49:H59")
.Interior.ColorIndex = 39
.ClearContents
End With
With Sheets(1)
.Range("D49") = "Noms"
.Range("D50") = "Thierry"
.Range("D51") = "Ti"
.Range("D52") = "Celeda"
.Range("E49") = ""
.Range("E50").Formula = "=MATCH(A50,$D$50:$D$52,0)"
End With
Range("A49:C59").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"E49:E50"), CopyToRange:=Range("F49:H49"), Unique:=False
End Sub
Bonne soirée
@+Thierry