Microsoft 365 je cherche un code excel pour copier la couleur d'une cellule, à toutes les cellules qui ont la même valeur dans mon tableau.

Sub colorier()
Dim L, C, N, CoulFond, CoulPolice                           ' Déclaration des variables
'Application.ScreenUpdating = False                         ' Retirez commentaire pour accélérer, avec figeage écran.
For L = 6 To 127                                            ' Pour toutes les lignes du tableau
    For C = 3 To 80                                         ' Pour toutes les colonnes du tableau
        N = Cells(L, C)                                     ' Nombre dans la cellule
        Pos = Application.Match(N, Range("CF1:CF20"), 0)    ' Chercher nombre dans colonne CF
        If Not IsError(Pos) Then                            ' Si valeur trouvée
            CoulFond = Cells(Pos, "CF").Interior.Color      ' Récupère la couleur de fond
            CoulPolice = Cells(Pos, "CF").Font.Color        ' Récupère la couleur de la police
            Cells(L, C).Interior.Color = CoulFond           ' Applique la couleur de fond à la cellule
            Cells(L, C).Font.Color = CoulPolice             ' Idem pour la couleur de la police
        End If
    Next C
Next L
End Sub