Bonsoir,
voici un code :
Option Explicit
Sub LouReeD()
Application.ScreenUpdating = False
Dim cel As Range, plage As Range
Set plage = Range("A1:I106")
For Each cel In plage
cel.Value = Replace(cel.Value, " ", "") ' ici on enlève l'espace non sécable des millier
cel.Value = Replace(cel.Value, " ", "") ' ici on enlève l'espace entre le chiffre et le €
cel.Value = Replace(cel.Value, "€", "") ' ici on enlève le €
cel.Value = Val(cel.Value) ' on traduite le texte en chiffre
Next cel
plage.NumberFormat = "_($* #,##0.00_);_($* (#,##0.00);_($* ""-""??_);_(@_)" ' on met le format monétaire
End Sub
A mettre dans un module standard, puis lancer la macro.
Attention le code prend la plage exacte, il n'y a pas de recherche de taille...
@ bientôt
LouReeD