Sub test()
Dim curSheet As Worksheet, curCell As Range
Set curCell = ThisWorkbook.Sheets("récap").Range("A1")
For Each curSheet In ThisWorkbook.Sheets
If curSheet.Name <> "récap" Then
curCell.Value = curSheet.Range("R6").Value
Set curCell = curCell.Offset(1, 0)
End If
Next curSheet
End Sub