Sub Maj(Fichier As String)
Dim Cn As Object
Dim Sql As String
Set Cn = CreateObject("AdoDb.connection")
Cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Fichier & ";Extended Properties=""Excel 12.0;HDR=YES;"""
With Sheets("Remplace").Range("A1").CurrentRegion
For i = 2 To .Rows.Count
Sql = "UPDATE [Feuil1$] " & _
" SET [NOM] = '" & Replace(.Cells(i, "B"), "'", "''") & "'" & _
" Where [NOM]= '" & Replace(.Cells(i, "A"), "'", "''") & "'"
Cn.Execute Sql
Next
End With
Cn.Close
End Sub