Sub test_replace_II()
Dim Chemin$, fn$, ws As Worksheet, tablo
Chemin = "C:\Users\STAPLE\Documents\TEST_REPLACE\" 'Changer ici
tablo = Array(Array("Securité2", "Sécurité pompier 2"), Array("Gardien 2 Paris 75 013", "Gardien Alex Paris 75 013"), Array("Stagiaire 5", "Agent info Corinne"))
fn = Dir(Chemin & "*.xlsm")
Application.ScreenUpdating = False
Do While fn <> ""
With Workbooks.Open(Chemin & fn)
For Each el In tablo
Sheets(1).Cells.Replace el(0), el(1), xlPart, , True
Next
.Close True
End With
fn = Dir
Loop
End Sub