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 colone($n) $champs
            incr n
        }

        if { [llength $donnees] eq [expr $nbChamps-1] } {
            set baseReq "INSERT INTO $table SET"
            for { set i 0 } { $i < [expr $nbChamps] } { incr i } {
                lappend baseReq "$colone($i) = '[::mysql::escape [lindex $donnees [expr $i-1]]]',"
            }
            ::mysql::sel $sql(n_link) $baseReq
        } else {
            puts "Error: Nombre de champs non correspondant"
        }
        deconnexion
    }