Salut Toutoun !
Voilà une petite macro :
Sub Macro3()
Dim Cellule As Range
For Each Cellule In Range("E:E")
If Cellule = "Euro" Then Cellule.Offset(0, 1).NumberFormat = "#,##0.00 $"
If Cellule = "Dollars" Then Cellule.Offset(0, 1).NumberFormat = "[$$-409]#,##0.00"
Next Cellule
End Sub
Regarde le fichier joint
En espérant que c'est bien ce que tu voulais...héhé..!!!
@ +
moa