Recherche horizontale multiple (croisée)

Bonjour à tous,

Je suis confronté à un petit problème en VBA. Voici ce que je souhaite faire:

Copier la valeurs dans la Feuille 2 correspondant à "Titre 2" & "Sous titre 8".

J'ai mis en PJ un petit fichier pour illustrer cela.

Merci d'avance pour votre aide!

Finalement j'ai réussi à trouver la solution par moi même

Voici pour les futurs intéressés :

Sub recherche()
    For i = 1 To 100
        If Worksheets("Feuil1").Cells(1, i) = "Titre 2" Then
            ActiveCell.Offset(1, 0).Select
            Exit For
        End If
    Next i
    For ii = 0 To 10
        If Worksheets("Feuil1").Cells(2, i + ii) = "Sous titre 8" Then
            Worksheets("Feuil1").Cells(2, i + ii).Offset(1, 0).Select
            a = ActiveCell
            Exit For
        End If
    Next ii
Worksheets("Feuil2").Cells(6, 4) = a
End Sub