Recherche valeur au croisement d'une ligne et d'une colonne.

[Didier972]

Bonjour

Voilà, sous VBA, j'aimerais selectionner une case, qui ce trouve à l'intersection d'une colonne (Nom) et d'une Ligne (Date) tableau de recherche (Jours)
Voilà, ou j'en suis mais cela bug......quelqu'un voit-il mon erreur ???

Merci d'avance

'-------------------Rempli la Feuille Heure TTS-------------------------------------------
  J = CDec(Lab_Mois) & "/" & CDec(TB_Jour) & "/" & CDec(TB_Annee)
   NomPrenom = Lab_Nom.Caption
   
         With Sheets("Heures TTS")
            'Chercher son nom dans la feuille Conso colonne A
            Set c = .Range.ActiveCell.FormulaR1C1 = _
        "=INDEX(Jours,MATCH (NomPrenom) ,Nom,0),MATCH (J) ,Date,0))"
            'y mettre le nom
            c.Select
      End With