XL 2019 Recherche multi critères

Sub ListerCourses()
If ActiveSheet.Name <> "Pilotes" Then Exit Sub 'si on est pas sur la feuille "Pilotes", on sort ==> normalement.. aucune chance que ca arrive...

Columns("K:Z").ClearContents 'on efface les columns K à Z.. Choix arbitraire de la dernière colonne Z: si un nom de course apparaisait en colonne AA et au dela il ne sera pas effacé....
Fin = Range("H" & Rows.Count).End(xlUp).Row 'on récupère le numéro de la denière ligne

Position = ActiveSheet.Range("H3") 'on récupère la position selectionnée en H3
    
For i = 5 To Fin 'pour chaque ligne du tableau
    If Range("H" & i) <> 0 Then 'si il y a un nombre <>0
        NbCourses = Range("H" & i) 'on récupère ce nombres de courses
        NomPilote = Range("B" & i) 'on récupère le nom du pilote
        ReDim tabCourses(1 To NbCourses) 'on créé un tableau de NbCourses elements ==> contiendra les courses à afficher
        j = 1 'initialisation
        For Each ws In ActiveWorkbook.Sheets 'pour chaque feuille du classeur
            If ws.Name <> "Écuries" And ws.Name <> "Pilotes" Then 's'il s'agit d'une feuille de courses
               Set ici = ws.Range("A:A").Find(NomPilote) 'on cherche ou se trouve le pilote
               If Not ici Is Nothing Then 'si il est dans la feuille
                    If ws.Range("D" & ici.Row) = Position Then 'si son finish correspond à la position cherchée (H3)
                        tabCourses(j) = ws.Name 'on récupère le nom de la course= nom de la feuille
                        j = j + 1
                        If j > NbCourses Then Exit For 'si on a trouvé toutes les courses.. plus la peine de continuer de parcourir les feuilles
                    End If
               End If
            End If
        Next ws
        Range("K" & i).Resize(1, NbCourses) = tabCourses 'on colle le tableau à partir de la colonne K
    End If
Next i

End Sub

Function CalculPool(Nom$)
Application.Volatile
Dim i%, PosNom As Variant
For i = 1 To Application.CountIf([Courses], "*") 'pour chaque élément de la zone "Courses"
    With Sheets(CStr([Courses].Cells(i, 1))) 'dans la feuille
        PosNom = Application.Match(Nom, .Range("A:A"), 0) 'on récupère la ligne à laquelle se trouve le pilote dont le nom est donné en paramètre d'entrée de la fonction
' et la ligne suivante..Mystère
'si PosNom est un numérique (ca veut dire qu'on a trouvé le pilote)
'mais.. si range("E"PosNom") alors on incrémente CalculPool..
'mais..il manque pas quelque chose sur la condition ? si range ("E"Posnom)... 
'en l'état actuel c'est compris par VBA comme "si range() est vrai...
'ca veut dire quoi vrai ??
        If IsNumeric(PosNom) Then If .Range("E" & PosNom) Then CalculPool = CalculPool + 1
    End With
Next
End Function

=DECALER(Pilotes!$J$5;;;NBVAL(Pilotes!$J:$J)-2)