Excel copie particulière

Bonsoir,

Je voudrais recopier des nombres et couleurs dans un tableau ( à créer) à partir de 2 tableaux existants.

je joins un exemple.

merci

a+

Bonjour

Code Module

Sub Couleurs()
Range("BE10").CurrentRegion.Copy
Range("BV10").PasteSpecial
Dim Cel As Range, Lign, i
For Each Cel In Selection
Lign = Cel.Row
Range("BP" & Lign, Range("BP" & Lign).Offset(0, 4)).Select
i = Application.WorksheetFunction.Match(Cel.Value, Selection, 0)
Cel.Interior.ColorIndex = Range("BP" & Lign).Offset(0, i - 1).Interior.ColorIndex
Next Cel
Range("BV10").Select
End Sub

Bonjour

Merci Amadéus, , parfait.

a+