Sub Demo()
With Worksheets
ReDim VA(2 To .Count, 1 To 4)
For N& = 2 To .Count
With .Item(N)
VA(N, 1) = .Name
VA(N, 2) = .[D4].Value
VA(N, 3) = .[E4].Value
VA(N, 4) = .[F4].Value
End With
Next
Feuil1.UsedRange.Clear
Feuil1.[A2].Resize(.Count - 1, 4).Value = VA
End With
End Sub