Recherche colonne et ligne et renvoie de l'intersection

Bonjour,

J'aurais besoin d'un code VBA qui me permettrait de compléter la fin de mon tableau D2 à I27 (Ma plage est variable à partir de la colonne D compris (le nombre de colonne change) et pareil pour les lignes. Ces données sont page "Feuil1"

Je cherche ces données dans un tableau croisé dynamique " TCD_Panne1" situé page "TCD_Panne" (On cherche en ligne et en colonne et on extrait l'info de l'intersection de la ligne et de la colonne et si on ne trouve pas , on met rien)

Sub RechercheIntersection()
    Dim feuilleTCD As Worksheet
    Dim feuilleDonnees As Worksheet
    Dim plageTCD As Range
    Dim plageDonnees As Range
    Dim valeurLigne As Variant
    Dim valeurColonne As Variant
    Dim valeurIntersection As Variant

    ' Spécifiez le nom de la feuille contenant le TCD
    Set feuilleTCD = ThisWorkbook.Worksheets("TCD_Panne")

    ' Spécifiez le nom de la feuille contenant les données
    Set feuilleDonnees = ThisWorkbook.Worksheets("Feuil1")

    ' Spécifiez la plage de recherche en ligne dans la feuille du TCD (D)
    Set plageTCD = feuilleTCD.Columns("D")

    ' Spécifiez la plage de recherche en colonne dans la feuille du TCD (A)
    Set plageDonnees = feuilleTCD.Columns("A")

    ' Récupérez la valeur de la cellule D1 dans la feuille des données
    valeurLigne = feuilleDonnees.Range("D1").Value

    ' Récupérez la valeur de la cellule A3 dans la feuille des données
    valeurColonne = feuilleDonnees.Range("A3").Value

    ' Recherche de la valeur d'intersection dans le TCD
    valeurIntersection = feuilleTCD.Evaluate("INDEX(" & feuilleTCD.Name & "!" & feuilleTCD.Range("B2").CurrentRegion.Address & _
                                              ",MATCH(" & valeurLigne & "," & feuilleTCD.Name & "!" & feuilleTCD.Range("D2:D" & feuilleTCD.Cells(feuilleTCD.Rows.Count, "D").End(xlUp).Row).Address & _
                                              ",0),MATCH(" & valeurColonne & "," & feuilleTCD.Name & "!" & feuilleTCD.Range("A2:A" & feuilleTCD.Cells(2, feuilleTCD.Columns.Count).End(xlToLeft).Column).Address & ",0))")

    ' Affichez la valeur d'intersection en cellule D3 de la page "Feuil1"
    feuilleDonnees.Range("D3").Value = valeurIntersection
End Sub

J'ai essayé de bidouiller un code mais aucune idée de comment m'y prendre. 
qqn pourrait me donner un coup de main svp ? 

Bonjour santh22

A+