Re : Macro Chercher remplacer
Merci porcinet82
j'ai fait ça :
Sub replacesaint()
Dim i&, dep$, fin$
For i = 1 To Range("A65536").End(xlUp).Row
cellule = Cells(i, 1).Value
If InStr(1, cellule, "ST") <> 0 Then
dep = Left(cellule, InStr(1, cellule, "ST") - 1)...