Re : transcrire une formule envba
bonsoir pierrot93,
je pensais que le code était plus complexe, mais il est tout simple :
La_derniere = Range("A65536").End(xlUp).Row
MonCaractere = Chr(146)
For i = 10 To La_derniere
Range("A" & i).Select
Selection.Replace What:=MonCaractere, Replacement:="'", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Next i