Sub convertirNombre ( )	
Dim plagecell As Range			
Selection.Value	= Selection.Value
For Each plagecell  In	Selection
If Not Worksheet Function.IsNonText(plagecell)
Then					
plagecell .Value =			
Worksheet Function.Arabic(plagecell)
End If				
Next plagecell 				
End Sub				

Parfois, il est vraiment difficile de comprendre les chiffres romains comme des numéros de série. Ce code vous aidera à convertir les nombres romains en nombres arabes.