Code en chiffre

Function CodeNumLettre(target As String) As String
 Dim temp As String, i As Integer, codage As String
 codage = "qsdfghjklm"
 temp = ""
 For i = 1 To Len(target)
     If IsNumeric(Mid(target, i, 1)) Then
         temp = temp & Mid(codage, 1 + CInt(Mid(target, i, 1)), 1)
     Else
     If InStr(codage, Mid(target, i, 1)) < 1 Then
        temp = "Codage [" & codage & "] [0-9]": Exit For
     Else
         temp = temp & (InStr(codage, Mid(target, i, 1)) - 1)
    End If
     End If
 Next
 CodeNumLettre = temp
 End Function