[VBA]Commande Disctinct ne marche pas...

Bonjour tout le monde !!

Voilà, j'ai créé une requête en VBA sous Excel qui marche très bien dont voici le code :

    With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
        "ODBC;DSN=MS Access Database;DBQ=Z:\COMMON\DDI\Departement Clientele\Listing\Listing France 2006.mdb;DriverId=25;FIL=MS Access;MaxBuf" _
        ), Array("ferSize=2048;PageTimeout=5;")), Destination:=Range("A16"))
        .CommandText = Array( _
        "SELECT unique a_Strator.`N° de client`, a_Strator.Nom, a_Strator.CP, a_Strator.Ville" & Chr(13) & "" & Chr(10) & "FROM `Z:\COMMON\DDI\Departement Clientele\Listing\Listing France 2006`.a_Strator a_Strator" & Chr(13) & "" & Chr(10) & "WHERE (a_Strator.`Code vendeur`=" & NomRep & ")" & Chr(13) & "" & Chr(10) & "ORDER BY a_Strator.`N° de client`" _
        )
    End With

Mais quand je rajoute la clause distinct j'ai le message "Incomptatibilité de type" :

    With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
        "ODBC;DSN=MS Access Database;DBQ=Z:\COMMON\DDI\Departement Clientele\Listing\Listing France 2006.mdb;DriverId=25;FIL=MS Access;MaxBuf" _
        ), Array("ferSize=2048;PageTimeout=5;")), Destination:=Range("A16"))
        .CommandText = Array( _
        "SELECT DISTINCT a_Strator.`N° de client`, a_Strator.Nom, a_Strator.CP, a_Strator.Ville" & Chr(13) & "" & Chr(10) & "FROM `Z:\COMMON\DDI\Departement Clientele\Listing\Listing France 2006`.a_Strator a_Strator" & Chr(13) & "" & Chr(10) & "WHERE (a_Strator.`Code vendeur`=" & NomRep & ")" & Chr(13) & "" & Chr(10) & "ORDER BY a_Strator.`N° de client`" _
        )
 
    End With

C'est bizare tout de même... Quelqu'un à une explication ou suis-je dans le paranormal ?