Function CalculPosition&(Nom$)
Application.Volatile
Dim Course, i%, PosNom As Variant
Course = Array("Espagne", "Andalousie", "Tchèque", "Autriche", "Styrie", "Saint-Marin", "Emilie-Romagne", _
"Catalogne", "France", "Aragon", "Teruel", "Europe", "Valence", "Portugal")
For i = 0 To UBound(Course)
With Sheets(Course(i))
PosNom = Application.Match(Nom, .Range("A:A"), 0)
If IsNumeric(PosNom) Then If .Range("D" & PosNom) = Sheets("Pilotes").Range("H3") Then CalculPosition = CalculPosition + 1
End With
Next
End Function
Function CalculPool(Nom$)
Application.Volatile
Dim i%, PosNom As Variant
For i = 1 To Application.CountIf([Courses], "*")
With Sheets(CStr([Courses].Cells(i, 1)))
PosNom = Application.Match(Nom, .Range("A:A"), 0)
If IsNumeric(PosNom) Then If .Range("E" & PosNom) Then CalculPool = CalculPool + 1
End With
Next
End Function