Sub recap()
Dim feuille As Worksheet
Dim suite As Range
For Each feuille In ThisWorkbook.Sheets
If feuille.Name <> "Récapitulatif" Then
Set suite = Range("B65536").End(xlUp).Offset(1, 0)
With feuille
.Range("B2:C3").Copy suite
End With
suite.Offset(0, -1) = feuille.Name
End If
Next feuille
End Sub