proc insertSQL { table donnees {options ""} } {
        variable sql
        # Connexion à la base de données
        connexion

        set n 0
        # On récupère le nom des champs de $table
        set nameChamps [::mysql::col $sql(n_link) $table name]
        set nbChamps [llength $nameChamps]
        # on créer un tableau , on y donne le nom des champs
        foreach champs $nameChamps {
            set colonne($n) $champs
            incr n
        }
        if { [llength $donnees] eq [expr $nbChamps-1] } {
            set baseReq "INSERT INTO $table SET"
            set argsReq ""
            for { set i 1 } { $i < [expr $nbChamps] } { incr i } {
                lappend argsReq "$colonne($i) = '[::mysql::escape [lindex $donnees [expr $i -1]]]'"
            }
            set baseReqF "$baseReq [join $argsReq ,]"
            puts $baseReqF
           ::mysql::exec $sql(n_link) $baseReqF
        } else {
            puts "Error: Nombre de champs non correspondant"
        }
        deconnexion

    }