Prendre une feuille VBA

Sub frequences()

Dim cellule As Range: Dim frequence As Byte
Dim ligne As Byte: Dim colonne As Byte
Dim cellule2 As Range

For Each cellule In Selection
frequence = 0
ligne = cellule.Row: colonne = cellule.Column

    For Each cellule2 In Selection
        If (ligne <> cellule2.Row Or colonne <> cellule2.Column) Then
            If (cellule.Value = cellule2.Value) Then
                frequence = frequence + 1
            End If
        End If
    Next cellule2

    If (frequence > 0) Then
        cellule.Font.Bold = True
        cellule.Font.Size = 11 + frequence * 2
    End If
    
    
Next cellule

End Sub