Sub Remplacer()
Dim ncol%, tablo, i&, j%, x$, s
With ActiveSheet 'à adapter
If .FilterMode Then .ShowAllData 'si la feuille est filtrée
With .UsedRange
ncol = .Columns.Count
If ncol = 1 Then ncol = 2 'pour avoir au moins 2 éléments
tablo = .Resize(, ncol).Formula 'matrice, plus rapide
For i = 1 To UBound(tablo)
For j = 1 To ncol
x = tablo(i, j)
If Left(x, 1) <> "=" Then
s = Split(x, "\")
If UBound(s) > 1 Then tablo(i, j) = s(1)
End If
Next j, i
.Formula = tablo 'restitution
End With
End With
End Sub