XL 2016 copier la couleur de fond d'une base de donnée vers une autre feuille

[yule bwinner]

Bonjour, je cherche à reporter les couleurs de fond en fonction de la valeur depuis une base de donnée.
j ai cette formule mais elle ne marche pas....

Sub couleur()

' On désactive la mise à jour de l'écran afin d'accélérer l'exécution de la macro
Application.ScreenUpdating = False
Application.DisplayAlerts = False

For i = 2 To 26
boite = Sheets("Epissures a remplir").Range("A" & i).Value

Sheets("Etiquette et").Activate


Dim FL1 As Worksheet, Cell As Range
Dim Var1 As String

Set FL1 = Worksheets("Etiquette et")
With FL1
For Each Cell In Range("A1:T340")

'Valeur de la cellule lue
Var1 = Cell.Value
If Var1 = boite Then
Sheets("Epissures a remplir").Activate
Range("A" & i).Select
Sheets("Etiquette et").Activate
Cell.Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

End If

Next

End With

Next

Fin = True

' On active la mise à jour de l'écran afin d'accélérer l'exécution de la macro
Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub

Je pense que le fichier joint sera plus parlant que mes explications.

Merci à vous

 

[phlaurent55]

Bonjour yule ...........

voir fichier joint

à+
Philippe

 

[Si...]

Hello

Comme les films de Yul : "en noir et blanc ou en couleur" !

Dim R As Range, C As Range
Private Sub Neutre_Click()
    For Each C In [A1:H15].SpecialCells(2)
        C.Interior.ColorIndex = xlNone
     Next
End Sub

Private Sub Coul_Click()
    For Each C In [A1:H15].SpecialCells(2)
        For Each R In Feuil1.[A1:A7]
            If R = C Then C.Interior.Color = R.Interior.Color
        Next
    Next
End Sub

(pour les plages, versions à moderniser en fonction du scénario)

 

[yule bwinner]

Merci pour vos réponses,

Malheureusement ça ne fonctionne pas chez moi ( mais très bien chez vous^^).
Le fichier que je vous ai envoyé est une version allégée(beaucoup plus d'onglets en réalité), l idéal serait que je puisse nommer les "sheets"(à copier et la destination) dans la formule.
Effectivement cette formule sera reportée dans plusieurs dossiers.