Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Select Case Target.Address
Case "$A$6"
recherche 0, Target.Text
Case "$B$6"
recherche 1, Target.Text
Case Else
End Select
Application.EnableEvents = True
End Sub
Private Sub recherche(colonne, ligne)
Range(Range(Range("C6"), Range("C6").End(xlDown)), Range(Range("C6"), Range("C6").End(xlDown)).End(xlToRight)).ClearContents
Me.Cells(6, 1).Offset(0, colonne + 1 - (2 * colonne)).ClearContents
For i% = 1 To Sheets.Count - 3
For Each o In Worksheets(i).Range("$A$7:$A$274").Offset(0, colonne)
If o.Text = ligne Then
j = j + 1
Me.Cells(j + 5, 3) = o.Offset(0, 2 - colonne).Value
Me.Cells(j + 5, 4) = o.Offset(0, 5 - colonne).Value
Me.Cells(j + 5, 5) = o.Offset(0, 3 - colonne).Value
Me.Cells(6, 1).Offset(0, colonne + 1 - (2 * colonne)) = o.Offset(0, colonne + 1 - (3 * colonne))
End If
Next
Next
End Sub