Bonjour,
ci dessous proposition de macro
Option Explicit
Sub reporter()
Dim nbre As Long, cptr As Long
Sheets(1).Activate
nbre = Application.CountA(Sheets(2).Range("A:A"))
cptr = 1
While cptr <= nbre
Cells(3 + cptr, 1) = Sheets(2).Cells(1 + cptr, 1)
Cells(3 + cptr, 2) = Sheets(2).Cells(1 + cptr, 2)
Cells(3, 2 + cptr) = Sheets(2).Cells(1 + cptr, 3)
Cells(3 + cptr, 2 + cptr) = Sheets(2).Cells(1 + cptr, 4)
cptr = cptr + 1
Wend
End Sub
A+
Michel