Function ARemplacer(Cellule As Range, _
Cherche As String, Remplace As String)
Dim T As String, A As Integer
T = Cellule
A = 1
Do
A = InStr(A, T, Cherche, vbTextCompare)
If Mid(T, A - 1, 1) <> "\" Then
T = T & " "
Mid(T, A, Len(T)) = Remplace & Mid(T, A + 1, Len(T))
End If
A = A + 2
Loop Until InStr(A, T, Cherche, vbTextCompare) = 0
ARemplacer = T
End Function