Private Sub Worksheet_Change(ByVal Target As Range)
Dim L As Long ' numéro de ligne sur feuilles recherche
Dim LR As Long ' numéro de ligne sur feuille recap
Dim F As Integer ' numéro de feuille
If Not Application.Intersect(Target, Range("C5")) Is Nothing Then
Application.EnableEvents = False
Application.ScreenUpdating = False
'Efface zone résultat et mémorise le numéro de la première ligne de résultat
Range("B37:F65536").ClearContents
LR = 35
'Charge les données dans le tableau à partir de toutes les feuilles
For F = 1 To Sheets.Count ' boucle sur les feuilles
If Sheets(F).Name <> ActiveSheet.Name Then ' feuille recap ?
With Sheets(F) ' feuille traitée
For L = 4 To .Cells(.Rows.Count, 2).End(xlUp).Row ' boucle lignes feuilles
If .Cells(L, 3).Value = Target.Value Then 'NUMERO DE COLLABORATEUR
LR = LR + 1 ' ligne suivante
Cells(LR, 2).Value = .Cells(L, 2).Value ' documentation des colonnes
Cells(LR, 3).Value = .Cells(L, 5).Value
Cells(LR, 4).Value = .Cells(L, 6).Value
Cells(LR, 5).Value = .Cells(L, 11).Value
Cells(LR, 6).Value = .Cells(L, 12).Value
End If
Next L
End With
End If
Next F
Application.EnableEvents = True
Application.ScreenUpdating = True
End If
End Sub