Stat sur un nombre présent dans les lignes

Sub cartman()
'ici on va mettre le nombre de fois que apparait telle ou telle chiffre
'exemple si 22 apparait 2 fois alors tab_all(222)=2
Dim tab_all(1000)
For i = 1 To Range("A65536").End(xlUp).Row
    For y = 1 To 20
        tab_all(Cells(i, y)) = tab_all(Cells(i, y)) + 1
    Next y
Next i

'ici on va chercher le max du tableau
For i = 0 To UBound(tab_all)
If Max < tab_all(i) Then Max = tab_all(i)
Next i
'donc max contient le nombre de fois qu apparaissenet les nombre les plus souvent
j = 2
For i = 0 To UBound(tab_all)
If tab_all(i) = Max Then
    Cells(j, 24) = i
    j = j + 1
End If
Next i
Cells(1, 24) = "les nombres qui apparaissent le plus souvent apparaisse " & Max & " fois et sont"
End Sub

Sub cartman()
'ici on va mettre le nombre de fois que apparait telle ou telle chiffre
'exemple si 22 apparait 2 fois alors tab_all(222)=2
Dim tab_histo(1000)
For i = 1 To Range("A65536").End(xlUp).Row
ReDim tab_all(1000)
    For y = 1 To 20
        tab_all(Cells(i, y)) = tab_all(Cells(i, y)) + 1
    Next y
    'ici on va garder un historique par rapport a la ligne qu on vient de traiter
    
    For Z = 0 To UBound(tab_all)
        If tab_all(Z) > tab_histo(Z) Then tab_histo(Z) = tab_all(Z)
    Next Z
Next i

'ici on va chercher le max du tableau
For i = 0 To UBound(tab_all)
If Max < tab_histo(i) Then Max = tab_histo(i)
Next i
'donc max contient le nombre de fois qu apparaissenet les nombre les plus souvent
j = 2
For i = 0 To UBound(tab_histo)
If tab_histo(i) = Max Then
    Cells(j, 24) = i
    j = j + 1
End If
Next i
Cells(1, 24) = "les nombres qui apparaissent le plus souvent apparaisse " & Max & " fois et sont"
End Sub