XL 2019 Extraction jour (deux lettres) et heures associées

=GAUCHE(A2;2)
et
=SUPPRESPACE(STXT(A2;3;NBCAR(A2)))

Trim(Mid(Cells(x, 1).Value), 3, Len(Cells(x, 1).Value))

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [A:A]) Is Nothing Then
        Dim tablo, tablosortie, L%, DL%
        Application.ScreenUpdating = False
        DL = Range("A65500").End(xlUp).Row                                          ' Dernière ligne
        [B:C].ClearContents                                                         ' Effacement matrice de sortie
        tablo = Range("A1:A" & DL)                                                  ' Tranfert données dans array, beaucoup plus rapide
        ReDim tablosortie(DL, 2)                                                    ' Création tableau de sortie
        For L = 2 To UBound(tablo)
            If tablo(L, 1) <> "" Then
                tablosortie(L - 1, 0) = Left(tablo(L, 1), 2)                        ' Extraction Jour
                tablosortie(L - 1, 1) = Trim(Mid(tablo(L, 1), 3, Len(tablo(L, 1)))) ' extraction heure
            End If
        Next L
        [B1].Resize(UBound(tablosortie, 1), UBound(tablosortie, 2)) = tablosortie   ' restitution tableau en B et C
        [B1] = "Jour": [C1] = "Heure"                                               ' Entete
        Columns("C:C").HorizontalAlignment = xlCenter                               ' Centré
        Application.ScreenUpdating = True
    End If
End Sub

Trim(Mid(Cells(x, 1).Value, 3, Len(Cells(x, 1).Value)))
au lieu de
Trim(Mid(Cells(x, 1).Value), 3, Len(Cells(x, 1).Value))

Sub Bouton1_Cliquer()
    Dim tableau, x, j$, I&
    tableau = ActiveSheet.Range("A2:b2").Resize(Cells(Rows.Count, "A").End(xlUp).Row - 1)
    For I = 1 To UBound(tableau)
        x = Split(tableau(I, 1) & " ", " ")
        j = x(0)
        tableau(I, 2) = trim(Replace(tableau(I, 1), j, ""))
        tableau(I, 1) = j
    Next
    With [B2].Resize(UBound(tableau), 2)
    .ClearContents
    .Value = tableau
End With
End Sub