Microsoft 365 séparer une colonne au niveau d'une série de chiffres

Function CodPost(C$)
    For N = 1 To Len(C) - 4
        If IsNumeric(Mid(C, N, 1)) And IsNumeric(Mid(C, N, 5)) Then
            CodPost = Mid(C, N, 5)
            Exit Function
        End If
    Next N
End Function

If IsNumeric(Mid(C, N, 1)) And IsNumeric(Mid(C, N, 5)) Then

If Mid(C, N, 5) Like "#####" Then

Sub CodePostal()
Dim o As Object, tablo, i&, a
Set o = CreateObject("vbscript.regexp")
o.Global = True
o.Pattern = "\d{5}"
With [A1].CurrentRegion.Resize(, 2)
    tablo = .Value
    For i = 1 To UBound(tablo)
        Set a = o.Execute(tablo(i, 1))
        If a.Count Then tablo(i, 2) = a(0) Else tablo(i, 2) = ""
    Next
    .Value = tablo
End With
End Sub