Option Base 1
Sub remplace()
Application.ScreenUpdating = False
Columns("O").Delete
Columns("M").Delete
Columns("G:K").Delete
Columns("E:F").Clear
tablo = Range("C2:C" & Range("C" & Rows.Count).End(xlUp).Row)
For n = LBound(tablo, 1) To UBound(tablo, 1)
x = Application.Match(tablo(n, 1), Sheets("baseFrance").Columns("A"), 0)
If Not IsError(x) Then
Range("E" & n + 1) = Sheets("baseFrance").Range("B" & x)
Range("F" & n + 1) = Sheets("baseFrance").Range("C" & x)
End If
Next
Application.ScreenUpdating = True
End Sub