Recuperer les donnees dans un tableau d'un seul coup

Bonjour tout le monde

Au niveau du code ci dessous , es ce qu'il y'a possibilité de recuperer les donnees dans le tableau à la fin de la boucle.

j'ai essayé de le faire mais au niveau de la feuille destination il me donne seulemet la derniere ligne recuperée

Merci

Public Sub SERVICE_BEHESP()
Dim MonTab1 As Variant, Compt11 As Long, Plg1 As Range, Plg2 As Range
Dim j As Long
Dim Z As String
Dim trouve As Range
Application.ScreenUpdating = False
With Feuil52
.Range("A1:O1").Copy Feuil60.Range("A1")
    Set Plg1 = .Range("A2:O" & .Range("A" & .Rows.Count).End(xlUp).Row)
     MonTab1 = Plg1.Value
     j = 2
         For Compt11 = LBound(MonTab1, 1) To UBound(MonTab1, 1)
        Z = .Cells(Compt11, 13) & Chr(32) & .Cells(Compt11, 12)
         'Z = MonTab1(Compt11, 13) & Chr(32) & MonTab1(Compt11, 12)
         Set trouve = Feuil53.Columns(9).Find(Z, lookat:=xlWhole)
         If Not trouve Is Nothing Then
             MonTab1 = Feuil52.Range("A" & Compt11 & ":O" & Compt11)
             With Feuil60
    Set Plg2 = .Range("A" & j & ":O" & j)
        'Set Plg2 = .Range("A1:N1")
    Plg2.Value = MonTab1

    End With
             j = j + 1
            End If
        Next Compt11
 End With

With Feuil60
'.Activate
.Columns("A:Y").AutoFit: .Range("A1").CurrentRegion.Borders.LineStyle = 1 'J'ajuste mes colonnes en tailles
Application.Union(.Range("F1"), .Range("G1"), .Range("K1")).EntireColumn.NumberFormat = "dd-mm-yyyy hh:mm:ss"
End With
    Application.ScreenUpdating = True
End Sub

Bonjour,

je crois qu'un fichier d'exemple est nécessaire ...

Bonjour

Mon code marche bien mais je veux le modifier et je cherche de l'aide,

Au niveau de mon macro je veux juste mettre toutes données dans le tableau avant de le transférer sur la feuile.

Actuellement mon code récupére une ligne dans le tableau et le transfère au même moment ,mais je veux qu'il recupere le tout dans le tableau et à la fin de la boucle le transfere sur la feuille.

je veux pas que ce bout de code se trouve dans la boucle

With Feuil3
    Set Plg2 = .Range("A" & j & ":O" & j)
        'Set Plg2 = .Range("A1:N1")
   Plg2.Value = MonTab1

    End With