Bonsoir,
un exemple simpliste, continuez à remplir votre tableau, et cliquez [Calculer].
Ne seront dans la liste de résultats, tout numéro sortie au moins une fois.
Il est contrôlé que les numéros sont bien compris de 1 à 49 inclus, mais aucun contrôle sur la possibilité qu'un numéro soit saisi deux fois à un même tirage...
Sub recherche()
Dim a As String
Dim n As Long
Dim li As Long
Dim col As Long
Dim numero As Long
Dim tableau(49) As Long
n = Cells(Rows.Count, 2).End(xlUp).Row
For li = 2 To n
For col = 2 To 7
numero = Cells(li, col)
If numero < 1 Or numero > 49 Then
MsgBox "Un numéro est hors norme", vbCritical
Cells(li, col).Activate
Exit Sub
End If
tableau(numero) = tableau(numero) + 1
Next col
Next li
li = 2
Range("J2:K50").ClearContents
For numero = 1 To 49
If tableau(numero) > 0 Then
Cells(li, 10) = numero
Cells(li, 11) = tableau(numero)
li = li + 1
End If
Next numero
End Sub