Option Explicit
Sub Bouton1_QuandClic()
Dim tablo As Variant
Dim ws As Worksheet
Dim i As Long
Dim ligne As Long
Dim k As Byte
For Each ws In Worksheets 'pour chaque feuille du classeur
If ws.Name <> 'interrogation' Then 'sauf la feuille interrogation
tablo = ws.Range('a1').CurrentRegion 'creation d'un tableau avec les données
For i = 1 To UBound(tablo) 'boucle sur le tableau
If tablo(i, 6) = Range('a1') Then 'si les données du tableau sont ok
ligne = Range('a65536').End(xlUp).Row + 1 'copy les données
Cells(ligne, 1) = tablo(i, 6)
Cells(ligne, 7) = ws.Name 'copie le nom de la feuille
For k = 1 To 5
Cells(ligne, k + 1) = tablo(i, k)
Next k
End If
Next i
End If
Next ws
End Sub