'-------------------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