Variable dans une macro qui importe un access

Bonsoir à tous

J'essaye d'intégrer une variable dans une macro enregistrée qui récupérer des données dans un Access via MQuery.

Malheureusement la variable ne marche pas..

La variable est en fait le numéro du jour (donc de 01 à 30) qu'elle trouve dans un autre classeur.

    

variable1 = Sheets("Mode Operatoire").Range("J1").Value
    Sheets("FEUILLEMACRO").Select

    ' importaccess
 With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
        "ODBC;DSN=IS_ODBC;UID=MONIDPERSO;;MODE=SHARE;DBALIAS=IS_ODBC;SYSSCHEMA=SYSCAE;ASYNCENABLE=0;" _
        , Destination:=Range("$A$1")).QueryTable
        .CommandText = Array( _
  "SELECT TEXPJO.NATFLUX, TEXPJO.IDMAG, TEXPJO.AAVMTP, TEXPJO.MMVMTP, TEXPJO.JJVMTP, TEXPJO.HHVMTP, TEXPJO.IMMAT, TEXPJO.OPCHGT, TEXPJO.IDTYCNT, TEXPJO.VOLCNT, TEXPJO.IDCNTRGT" & Chr(13) & "" & Chr(10) & "FROM W0MP" _
        , _
        "R.TEXPJO TEXPJO" & Chr(13) & "" & Chr(10) & "WHERE (TEXPJO.IDMAG='05') AND (TEXPJO.JJVMTP='variable1')" & Chr(13) & "" & Chr(10) & "ORDER BY TEXPJO.MMVMTP, TEXPJO.JJVMTP, TEXPJO.HHVMTP, TEXPJO.IDCNTRGT" _
        )
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = False
        .RefreshOnFileOpen = False
        .BackgroundQuery = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = False
        .AdjustColumnWidth = False
        .RefreshPeriod = 0
        .PreserveColumnInfo = False
        .ListObject.DisplayName = "Tableau1"
        .Refresh BackgroundQuery:=True
    End With

Vous auriez une idée svp ?

Merci

Bonne soirée

Un petit up pour ma variable ?

Merci,

Bonne soirée, bon WE

erreur de manip, désolé pour le up.