Sub Test()
Dim Semaine As Integer, Feuille As Worksheet, I As Integer, J As Integer, DerLigne As Integer
Semaine = Application.InputBox("Semaine ?", "Recherche", , , , , , 1)
I = 3
For Each Feuille In ThisWorkbook.Worksheets
With Feuille
If .Name <> "recap" Then
DerLigne = .Range("A" & Rows.Count).End(xlUp).Row
For J = 3 To DerLigne
If .Cells(J, 1) = Semaine Then
.Rows(J).Copy Sheets("recap").Rows(I)
I = I + 1
End If
Next J
End If
End With
Next Feuille
End Sub