[CLOS]VBA pour récupérer des infos des autres feuilles pour synthèse

Sub Demo()
    With Worksheets
        ReDim VA(2 To .Count, 2)
        For N& = 2 To .Count
            With .Item(N)
                VA(N, 0) = .Name
                VA(N, 1) = .[I3].Value
                VA(N, 2) = .[J3].Value
            End With
        Next
        .Item(1).UsedRange.Clear
        .Item(1).Cells(1).Resize(.Count - 1, 3).Value = VA
    End With
End Sub

Sub Test()

Dim ws As Worksheet, i As Integer
i = 2
Sheets("synthese").UsedRange.Clear
For Each ws In Application.Worksheets
   If ws.Name <> "synthese" Then
      Sheets("synthese").Range("A" & i) = ws.Name
      Sheets("synthese").Range("B" & i) = ws.[D4].Value
      Sheets("synthese").Range("C" & i) = ws.[E4].Value
      Sheets("synthese").Range("D" & i) = ws.[F4].Value
      i = i + 1
   End If
Next ws

End Sub

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

Sub Test2()
                       Dim oWs As Worksheet, R As Long
                                             R = 1
                    Application.ScreenUpdating = False
    With Feuil1
               .UsedRange.Clear
        For Each oWs In ThisWorkbook.Worksheets
              If oWs.Name <> .Name Then
                                             R = R + 1
                            .Cells(R, 1).Value = oWs.Name
                .Cells(R, 2).Resize(, 3).Value = oWs.[D4.F4].Value
              End If
        Next
    End With
                    Application.ScreenUpdating = True
End Sub