Compter des occurences dans des colonnes

Private Sub nomDeLaFonction()

Dim i As Integer, j As Integer, k As Integer
Dim occurenceMax As Integer, occurence As Integer
Dim nbCourant As Integer, nbMax As Integer
occurenceMax = 0
occurence = 0
' k sera les colonnes
For k = 6 To 12
    ' i et j seront les lignes
    For i = 1 To 19
        nbCourant = Cells(i,k) '6 étant la colonne F, pour G il faudra 7...
        For j = i + 1 To 20
            If Cells(j,6) = nbCourant Then
                occurence = occurence + 1
            End If
        Next j
        If occurence > occurenceMax Then
            occurenceMax = occurence
            nbMax = nbCourant
        End If
        occurence = 0
    Next i
    Cells(21,k) = nbMax
    Cells(22,k) = occurenceMax
    occurenceMax = 0
Next k
End Sub