XL 2016 Comment extraire une série de lettre et chiffre qui peuvent varier (H1H1H1)

Function REGEXO(CEL As String)
    Dim matchs
    REGEXO = "nofound!!"
    With CreateObject("VBScript.RegExp"):
        .Global = True: .IgnoreCase = True: .Pattern = "\s(\D{1})(\d{1})(\D{1})(\d{1})(\D{1})(\d{1})"
        Set matchs = .Execute(CEL)
         If matchs.Count > 0 Then REGEXO = Mid(CEL, InStrRev(CEL, matchs(matchs.Count - 1)))
         End With
End Function

Function REGEXO(CEL As String)
    Dim matchs, X
    REGEXO = "nofound!!"
    With CreateObject("VBScript.RegExp"):
        .Global = True: .IgnoreCase = True: .Pattern = "\s(\D{1})(\d{1})(\D{1})(\d{1})(\D{1})(\d{1})"
        Set matchs = .Execute(CEL)
        Debug.Print "occurences " & matchs.Count
        If matchs.Count > 0 Then
                 X = Split(CEL, matchs(matchs.Count - 1))
                 REGEXO = matchs(matchs.Count - 1) & " " & X(UBound(X))
             'REGEXO = Mid(CEL, InStrRev(CEL, matchs(matchs.Count - 1)))
        End If
    End With
End Function