Comment creer une fonction VBA pour savoir les numeros annonciateur

Bonjour a tous

Je souhaiterais créer une fonction qui me permet de connaitre le nombre de fois "nb" de sortie de la boule "x" lorsqu' au tirage précédent la boule "y" est sortie dans un tirage classique de 5 boules par tirage de type euromillion ou loto

merci d avance

bonjour

une proposition pour un tableau des tirages en A1:E100 et ton x en H1 et ton y en H2

=SOMMEPROD((A1:E100=H1)*(NB.SI(INDIRECT("A" & LIGNE(A1:A100) & ":E" & LIGNE(A1:A100));H2))*1)

en vba

Function tiragexy(table, x, y)
    For Each r In table.Rows
        ctr = ctr + Application.CountIf(r, x) * Application.CountIf(r, y)
    Next
    tiragexy = ctr
End Function