Bonjour,
Etant donné que le caractère est un astérisque tu ne peux pas procéder par remplacement, mais, comme tes données sont sous la forme * 29.050
Essaye avec çà :
Sub Suppression()
Dim cell As Range
ActiveSheet.UsedRange.Select
For Each cell In Selection
If InStr(1, cell, "* ") <> 0 Then
cell = Mid(cell, 2, 99)
End If
Next
End Sub
Bonne fin de journée.