Sub CopieJoueurs()
Dim DL As Long, DC As Long, i As Byte
DL = Worksheets("Feuil2").Range("A" & Rows.Count).End(xlUp).Row + 1
DC = 0
Application.ScreenUpdating = False
With Worksheets("Feuil1")
For i = 2 To 5
DerL = .Cells(.Cells.Rows.Count, i).End(xlUp).Row
DC = DC + 1
.Range(Cells(7, i), Cells(DerL, i)).Copy
Worksheets("Feuil2").Cells(DL, DC).PasteSpecial Paste:=xlPasteValues, Transpose:=True
DC = Worksheets("Feuil2").Cells(DL, Columns.Count).End(xlToLeft).Column
Application.CutCopyMode = False
Next
End With
Application.ScreenUpdating = True
End Sub