Sub exporter_br44()
Dim source As ADODB.Connection
Dim rqte As ADODB.Recordset
Dim Fichier As String
dim cptr as Byte
Fichier = ThisWorkbook.Path & "\S.xls"
Set source = New ADODB.Connection
source.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Fichier & ";" & _
"Extended Properties=""Excel 8.0;HDR=No;"";"
Set rqte = New ADODB.Recordset
rqte.Open "SELECT * FROM cible;", source, adOpenKeyset, adLockOptimistic
For cptr = 0 To 5
rqte.Fields(cptr).Value = Cells(27, cptr + 2).Value
Next cptr
rqte.Update
source.Close
Set source = Nothing
Set comd = Nothing
Set rqte = Nothing
End Sub