Pourquoi cette macro qui m'a été donnée par Frangy et qui me convenait ne fonctionne pas sur le cas en exemple...
Sub Chercher()
With Worksheets("base")
.Range("C1:D" & Range("C" & Rows.Count).End(xlUp).Row).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"K2:L3"), CopyToRange:=Range("K11:L11"), Unique:=True
End With
End Sub