Option Explicit
Const FeuilleCollector As String = "Feuil1" '[COLOR=green][B]<<< A ADPATER[/B][/COLOR]
Sub SheetsCollector()
Dim WS As Worksheet, WSCollect As Worksheet
Dim Plage As Range, Cell As Range
Dim Ligne As Long, Col As Byte
Set WSCollect = ThisWorkbook.Worksheets(FeuilleCollector)
Ligne = 1
Col = 1
For Each WS In ThisWorkbook.Worksheets
Set Plage = WS.Range("A1:F2")
If WS.Name <> WSCollect.Name Then
For Each Cell In Plage
WSCollect.Cells(Ligne, Col) = Cell.Value
Col = Col + 1
Next Cell
End If
Ligne = Ligne + 1
Col = 1
Next WS
End Sub