Problème de mémoire erreur 7

Bonjour à tous!

Problème lorsque j'active ma macro un message d'erreur apparaît: Mémoire insuffisante Erreur 7.

Sub clipper()

    With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array(Array( _
        "ODBC;DSN=CLIPPER 7;ANA=C:\Program Files (x86)\Clip Industrie\CLIPPER 7\CLIPPER7.wd7\CLIPPER7.WDD;REP=;Server Name=SERVER2016;Server " _
        ), Array( _
        "Port=4900;Database=SEROP;UID=Admin;IntegrityCheck=0;PWDXX=;Encryption=")), _
        Destination:=Range("$K$1")).QueryTable
        .CommandText = Array( _
        "SELECT AFFAIRE.NAF, AFFAIRE.COCDE, AFFAIRE.DESA" & Chr(13) & "" & Chr(10) & "FROM ""C:\Program Files (x86)\Clip Industrie\CLIPPER 7\CLIPPER7.wd7\CLI""~AFFAIRE AFFAIRE" _
        )
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .ListObject.DisplayName = "Tableau_Lancer_la_requête_à_partir_de_CLIPPER_7"

       'Le problème apparaît à cette ligne'
        .Refresh BackgroundQuery:=False

    End With
        With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array(Array( _
        "ODBC;DSN=CLIPPER 7;ANA=C:\Program Files (x86)\Clip Industrie\CLIPPER 7\CLIPPER7.wd7\CLIPPER7.WDD;REP=;Server Name=SERVER2016;Server " _
        ), Array( _
        "Port=4900;Database=SEROP;UID=Admin;IntegrityCheck=0;PWDXX=;Encryption=")), _
        Destination:=Range("$N$1")).QueryTable
        .CommandText = Array( _
        "SELECT BL.NUMBL, BL.DATEBL" & Chr(13) & "" & Chr(10) & "FROM ""C:\Program Files (x86)\Clip Industrie\CLIPPER 7\CLIPPER7.wd7\CLI""~BL BL" _
        )
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .ListObject.DisplayName = _
        "Tableau_Lancer_la_requête_à_partir_de_CLIPPER_7_1"
        .Refresh BackgroundQuery:=False
    End With

Séparer les 2 requêtes Ms query peut être? La je bloque ...

J'ai séparé les 2 requêtes et toujours le même problème ... avec le même message erreur 7.

Sub clipper1()
    With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array(Array( _
        "ODBC;DSN=CLIPPER 7;ANA=C:\Program Files (x86)\Clip Industrie\CLIPPER 7\CLIPPER7.wd7\CLIPPER7.WDD;REP=;Server Name=SERVER2016;Server " _
        ), Array( _
        "Port=4900;Database=SEROP;UID=Admin;IntegrityCheck=0;PWDXX=;Encryption=")), _
        Destination:=Range("$K$1")).QueryTable
        .CommandText = Array( _
        "SELECT AFFAIRE.NAF, AFFAIRE.COCDE, AFFAIRE.DESA" & Chr(13) & "" & Chr(10) & "FROM ""C:\Program Files (x86)\Clip Industrie\CLIPPER 7\CLIPPER7.wd7\CLI""~AFFAIRE AFFAIRE" _
        )
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .ListObject.DisplayName = "Tableau_Lancer_la_requête_à_partir_de_CLIPPER_7"
       'La ligne ci dessous est jaune'
        .Refresh BackgroundQuery:=False
    End With
    Application.Run "clipper"
End Sub

Le problème provient de la feuille ou du classeur, j'ai essayé sur un autre classeur et sa fonctionne...

Problème résolu tous seul .

Il s'agit de la taille des colonnes et du nombre de lignes qui faisait planté la macro.