Découper un bloc de données avec une macro ?

Option Explicit
Dim FL1 As Worksheet, NoCol As Integer
Dim NoLig As Long, Var As Variant
 Dim Tableau() As String
    Dim i As Integer
Private Sub CommandButton1_Click()
For_X_to_Next_Ligne
End Sub
Sub For_X_to_Next_Ligne()
Set FL1 = Worksheets("Feuil1")
    NoCol = 1 'lecture de la colonne 1
    For NoLig = 3 To Split(FL1.UsedRange.Address, "$")(4)
        Var = FL1.Cells(NoLig, NoCol).Value
        Var = Replace(Var, "10", "_ 10") 'a adapter la date, on ajoute_ pour scinder en 2
      Tableau = Split(Var, "_")
     'boucle sur le tableau pour visualiser le résultat
    For i = 0 To UBound(Tableau)
        'Le résultat s'affiche dans la fenêtre d'execution de l'éditeur de macros
      '  Debug.Print Tableau(i)
        FL1.Cells(NoLig, 3).Value = Tableau(0)
         FL1.Cells(NoLig, 4).Value = Tableau(1)
    Next i
    Next
    Set FL1 = Nothing
End Sub

Sub For_X_to_Next_Ligne()
Set FL1 = Worksheets("Feuil1")
    NoCol = 1 'lecture de la colonne 1
    For NoLig = 3 To Split(FL1.UsedRange.Address, "$")(4)
        Var = FL1.Cells(NoLig, NoCol).Value
        Var = Replace(Var, "10", "_ 10") 'a adapter la date, on ajoute_ pour scinder en 2
      Tableau = Split(Var, "_")
     'boucle sur le tableau pour visualiser le résultat
    For i = 0 To UBound(Tableau)
        'Le résultat s'affiche dans la fenêtre d'execution de l'éditeur de macros
      '  Debug.Print Tableau(i)
       Var_2 = Tableau(0)
        Var_2 = UCase(Var_2) 'tout en majuscule
        Var_2 = Replace(Var_2, "DU", "") 'supprime DU
     FL1.Cells(NoLig, 3).Value = Var_2
       FL1.Cells(NoLig, 4).Value = Tableau(1)
    Next i
    Next
    Set FL1 = Nothing
End Sub

Sub For_X_to_Next_Ligne()
Set FL1 = Worksheets("Feuil1")
    NoCol = 1 'lecture de la colonne 1
    For NoLig = 3 To Split(FL1.UsedRange.Address, "$")(4)
        Var = FL1.Cells(NoLig, NoCol).Value
        Var = UCase(Var) 'tout en majuscule
      Tableau = Split(Var, "DU")
     'boucle sur le tableau pour visualiser le résultat
    For i = 0 To UBound(Tableau)
        'Le résultat s'affiche dans la fenêtre d'execution de l'éditeur de macros
      '  Debug.Print Tableau(i)
       FL1.Cells(NoLig, 3).Value = Tableau(0)
       FL1.Cells(NoLig, 4).Value = Tableau(1)
    Next i
    Next
    Set FL1 = Nothing
End Sub

SUBSTITUE(GAUCHE(A3;REGEX.TROUVE(A3;"\D\s*(du)*\s*\d{2}";;FAUX));" ";"/")

=--REGEX.SUBSTITUE(REGEX.STXT(A3;"\d{2}(/|\s)*((01|02|03|04|05|06|07|08|09|10|11|12)|(JANVIER|FEVRIER|MARS|AVRIL|MAI|JUIN|JUILLET|AOUT|SEPTEMBRE|OCTOBRE|NOVEMBRE|DECEMBRE))(/|\s)*\d{4}";;VRAI);"(/|\s)*(JANVIER)|(FEVRIER)|(MARS)|(AVRIL)|(MAI)|(JUIN)|(JUILLET)|(AOUT)|(SEPTEMBRE)|(OCTOBRE)|(NOVEMBRE)|(DECEMBRE)(/|\s)*";"/[2=01;3=02;5=03;5=04;6=05;7=06;8=07;9=08;10=09;11=10;12=11;13=12]/")

Sub Test()
On Error Resume Next
   For L = 3 To Range("A" & Rows.Count).End(xlUp).Row
      Var = UCase(Cells(L, 1).Value)
      Cells(L, 3).Value = Split(Var, "DU")(0)
      MaDate = Trim(Split(Var, "DU")(1))
      Cells(L, 4).Value = Replace(MaDate, ".", "")
   Next
End Sub

Sub Test()
On Error Resume Next
   For L = 3 To Range("A" & Rows.Count).End(xlUp).Row
      Var = UCase(Cells(L, 1).Value)
      Cells(L, 3).Value = Split(Var, "DU")(0)
      MaDate = Trim(Split(Var, "DU")(1))
      MaDate = Replace(MaDate, ".", "")
      Cells(L, 4).Value = DateValue(MaDate)
   Next
End Sub