XL 2013 Inverser des caractères deux par deux dans une cellule

Sub Test()
    strValue = "A1B2C3D4"
    For lngLoop = Len(strValue) - 1& To 1& Step -2&
        strReturn = strReturn & Mid$(strValue, lngLoop, 2)
    Next lngLoop
    MsgBox strReturn
End Sub

=CONCATENER(STXT(A2;7;2);STXT(A2;5;2);STXT(A2;3;2);STXT(A2;1;2))

Function myReverse(ByRef R As Range) As String
Dim Z$, i As Byte, s$
Z = StrReverse(R.Text)
For i = 1 To Len(Z) Step 2
s = s & StrReverse(Mid(Z, i, 2))
Next
myReverse = s
End Function

Function myReverse(ByRef R As Range) As String
Dim Z$, i As Byte, s$
If Len(R) < 4 Or R.HasFormula Then Exit Function
Z = StrReverse(R.Text)
For i = 1 To Len(Z) Step 2
s = s & StrReverse(Mid(Z, i, 2))
Next
myReverse = s
End Function

Function reverse(chaineIni As Range) As String
    Dim l As Integer
    Dim chaine As String
    chaine = ""
    For l = Len(chaineIni) - 1 To 1 Step -2
        chaine = chaine & Mid$(chaineIni, l, 2)
    Next l
 reverse = chaine
End Function

Function RevHex(target, Nbcar As Integer)
Dim idx As Integer, Cible As String
        Cible = Right(String(Nbcar, "0") & CStr(target.Value), Nbcar)
        For idx = 1 To Nbcar Step 2
                RevHex = Mid(Cible, idx, 2) & RevHex
        Next
End Function