Bonjour à tous, je vous joins mon code:

Dim luf As Variant
Dim lufc As Variant

luf = Sheets("source").Range("d2")
lufc = Sheets("source").Range("d3")

  
    With ActiveSheet.QueryTables.Add(Connection:= _
        "ODBC;DSN=MEDIANE;UID=sa;;APP=Microsoft Office 2003;WSID=TSE5;DATABASE=MEDIANE" _
        , Destination:=Range("A8"))
        .CommandText = Array( _
        "insert into diabete(identnip,typdiab)values('"& luf &'",'"& lufc &'")" _
        )
        .Name = "Lancer la requête à partir de MEDIANE"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True



        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .Refresh BackgroundQuery:=False
    End With

Le probléme est le suivant, j'ai changer la requéte sql qui était un select.... en insert, mais j'imagine qu'il y a des choses qui changent, comme le array qui ne sert plus à rien et certainement autres choses, je ne suis pas informaticien donc je rame un peu, je remercie d'avance ceux qui pourront m'aider.
Gil