bonjour,
Edit : Bonjour Galopin01
une proposition.
Sub aargh()
Dim tr(1 To 90, 1 To 90) 'tr tableau résultats
t = Range("A1").CurrentRegion 'copie des tirages dans t
For i = 2 To UBound(t) - 1 'on prend chaque tirage (ubound(t)) nombre de lignes du tableau
For j = 3 To 7 'on prend chaque nombre du tirage
p = t(i, j) 'p = nombre du tirage
For k = 3 To 7 'on prend chaque nombre du tirage (pour la ligne suivante) t(i+1,k)
tr(p, t(i + 1, k)) = tr(p, t(i + 1, k)) + 1 ' on incrémente de 1 le compteur en ligne du nombre p et colonne du nombre t(i+1,k)
Next k
Next j
Next i
Range("k2").Resize(90, 90) = tr 'mettre tableau résultat en k2
End Sub