Sub Macro1()
Application.ScreenUpdating = False
ligne = 5
For i = 2 To Sheets.Count
Sheets(i).Range("B1:B3").Copy
Cells(ligne, 1).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
ligne = ligne + 1
Next i
Application.ScreenUpdating = True
End Sub