Bonjour,
Sub prefixe()
Dim pl As Range, c As Range
Set pl = Intersect(Columns(1), ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants, xlTextValues))
If Not pl Is Nothing Then
For Each c In pl
If c.PrefixCharacter <> "" Then c.Formula = c.Formula
Next c
End If
End Sub
eric
La proposition de h2so4 sera sans aucun doute plus rapide. Comme je ne l'ai lue qu'après....
Tu peux même te permettre de supprimer la boucle :
Dim derlig As Long
derlig = Cells(Rows.Count, 1).End(xlUp).Row
[A1].Resize(derlig, 1).Formula = [A1].Resize(derlig, 1).Formula
De plus ça te préservera d'éventuelles formules