Dim FSrc As Worksheet, CelCbl As Range, Section As String, Matricule As String, L As Long, C As Long
Set FSrc = ActiveWorkbook.Worksheets("Récap période")
Set CelCbl = ???
L = WorksheetFunction.Match(Section, FSrc.[Sections], 0)
C = WorksheetFunction.Match(Matricule, FSrc.[Matricules], 0)
CelCbl.Value = FSrc.[HEURES].Cells(L, C).Value