Chiffre arabe en romain

Dim Romain As String
 
 Sub test()
convertir_arabic_roman 1054
MsgBox Romain
Romain = ""
End Sub
 
 '--------

 Sub convertir_arabic_roman(Nombre)
 Dim Chiffre As Byte
 If Nombre > 3999 Then GoTo depassement
 'milliers
 If Nombre > 999 Then
     Chiffre = Int(Nombre / 1000)
     'romain = Application.Rept("M", chiffre) 'VbA Excel
     For cptr = 1 To Chiffre
          Romain = Romain & "M"
     Next
     Nombre = Nombre Mod 1000
End If
'centaines
If Nombre > 99 Then
     concatener_romain Nombre, 100, "C", "D"
     Nombre = Nombre Mod 100
End If
'dizaines
If Nombre > 9 Then
     concatener_romain Nombre, 10, "X", "L"
     Nombre = Nombre Mod 10
End If
'unités
concatener_romain Nombre, 1, "I", "V"
 Exit Sub
 
depassement:
 MsgBox "nombre > 3999", vbCritical
 End Sub

'---------

Sub concatener_romain(Arabe, Diviseur, Encours, Cinq_n)
     Dim Chiffre As Byte
     Dim Ssschiffre As String
     Chiffre = Int(Arabe / Diviseur)
     Select Case Chiffre
     Case Is = 9
          Romain = Romain & Encours & Right(Romain, 1)
     Case Is > 5
          For cptr = 6 To Chiffre
               sschiffre = sschiffre & Encours
          Next
          Romain = Romain & Cinq_n & sschiffre
     Case Is = 5
          Romain = Romain & Cinq_n
     Case Is = 4
          Romain = Romain & Encours & Cinq_n
     Case Else
          For cptr = 1 To Chiffre
               Romain = Romain & Encours
          Next
  End Select
  
End Sub