Ciao Non credo che il conteggio sia giusto, con 81 si perche è presente in tutte le estrazioni, Giulia voleva, almeno da quello che ho capito, quali sono i numeri accoppiati dove vi era l'81, se un estrazione non contiene 81 li conta lo stesso con la formula, invece dovrebbe escluderli.
questa la macro che fa il lavoro
Sub trova()
Dim r, c, d, x, y, k, rng, num
d = Cells(1, 8)
Range("Numeri").ClearContents
ReDim num(1 To 90)
For x = 2 To Cells(Rows.Count, 1).End(xlUp).Row
Set rng = Range("A" & x & ":E" & x)
k = WorksheetFunction.CountIf(rng, d)
If k = 1 Then
For y = 1 To 5
k = Cells(x, y)
If k = d Then GoTo 1
num(k) = num(k) + 1
1 Next y
End If
Next x
r = 1: c = 10
For x = 1 To 90
Cells(r, c) = num(x)
r = r + 1
If r = 31 Then r = 1: c = c + 2
Next x
End Sub ho dovuto cambiare un poco l'impostazione del risultato, per rendere più agevole la scrittura, ecco il file, nella cella gialla puoi inserire il numero che vuoi poi verranno evidenziati i risultati max
Ciao By Sal (8-D