Recherche H dans macro

Bonjour à tous,

Serait-il possible de m'aider sur une macro ?

Je souhaite réaliser une macro pour effectuer une recherche H en utilisant 2 critères.

Dans mon fichier TEST :

Je souhaite reproduire des listes de lettres selon une condition :

Exemple : Si "Rouge / Noir" de la feuil1 = A alors reproduire dans la feuille résultats la suite de lettres écrite en feuil3 (en partant de A).

Je pense qu'il faut utiliser une macro car je dois reproduire cette formule sur un bon nombre de lignes.

Merci à tous pour votre aide

Bonjour,

à tester,

Sub test()
plg = Sheets("RESULTATS").Range("A1:I30").Value
Set sh1 = Sheets("Feuil1")
Range("D2:M" & sh1.Cells(2, Columns.Count).End(xlToLeft).Column).ClearContents

For i = LBound(plg) To UBound(plg)

    For y = 2 To 4 Step 2
        Select Case plg(i, y)
        Case "Rouge", "Noir":
                            col1 = sh1.Cells(2, Columns.Count).End(xlToLeft).Column + 1
                            sh1.Cells(2, col1) = plg(i, 9)
                            Exit For
        Case "Jaune", "Orange":
                            col2 = sh1.Cells(3, Columns.Count).End(xlToLeft).Column + 1
                            sh1.Cells(3, col2) = plg(i, 9)
                            Exit For
        Case "Bleu", "Vert":
                            col3 = sh1.Cells(4, Columns.Count).End(xlToLeft).Column + 1
                            sh1.Cells(4, col3) = plg(i, 9)
                            Exit For
        End Select
    Next y

Next i
End Sub