Sheets("table").[n2] = Empty
Sheets("table").[A1:D1000].AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("table").[N1:N2], CopyToRange:=Sheets("table").[G1], Unique:=True
Sheets("table").[n2] = Target.Offset(0, -1)
Sheets("table").[o2] = Empty
Sheets("table").[A1:D1000].AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("table").[N1:O2], CopyToRange:=Sheets("table").[H1], Unique:=True
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Target.Address = "$H$5" Then Range("......").Find(ActiveCell.Value).Hyperlinks(1).Follow NewWindow:=True, AddHistory:=True
End Sub
=INDEX($D$45:$D$92;-44+SOMMEPROD(($B$45:$B$92=E5)*($C$45:$C$92=F5)*LIGNE($B$45:$B$92)))