Récupérer couleur et valeur d'une cellule

Bonjour,

J'ai un programme qui me permet de créer un tableau grâce à differents tableaux dans l'onglet précédent.

J'aimerai réussir en plus de prendre les valeurs, à récuperer les couleurs sur les "Code" que je viens chercher.

Je ne sais pas comment m'y prendre pour récupérer cette couleur.

Si quelqu'un a une idée ? :)

Bonjour GomJu, le forum,

Un essai..... faute de mieux...

Sub couleur()
 Dim cel As Range, couleur As Range, lig%, col%

 Application.ScreenUpdating = False

   For Each cel In Sheets("Recap").Range("E2:I" & Sheets("Recap").Range("A" & Rows.Count).End(xlUp).Row)
    If cel <> "" Then
     Set couleur = Sheets("Vis Tete H").Range("C26:N92").Find(What:=cel)
        If Not couleur Is Nothing Then
         lig = couleur.Row '............................................on récupère le n° de la ligne
         col = couleur.Column '.........................................on récupère le n° de la colonne 
          Sheets("Vis Tete H").Cells(lig, col).Copy '...................on copie la cellule
          cel.PasteSpecial Paste:=xlPasteFormats '......................on colle le format
        End If
     End If
   Next cel
End Sub

Cordialement,