Autres VBA extraire donnée entre deux dates

Sub Gestion_Condi()

'Récupères les infos des flux sortant packing condi

Dim j As Integer, i As Integer
Dim cel As Range
Dim n As Integer
Dim Madatedeb As Date, Madatefin As Date

Madatedeb = InputBox("Date de début ?")

Madatefin = InputBox("Date de fin ?")


Range(Sheets("Condi").Range("U2"), Sheets("Condi").Range("AA40")).Delete Shift:=xlUp
j = 0
For Each cel In Range(Sheets("Condi").Range("A2"), Sheets("Condi").Range("A2").End(xlDown))
'Récupère les données dans un tableau temporaire
     If cel.Offset(0, 8).Value > 1 And cel.Offset(0, 7).Value <> "" _
     And cel.Offset(0, 11) >= Madatedeb And cel.Offset(0, 12) < Madatefin Then
'heure fin'
        Sheets("Condi").Range("U2").Offset(j, 0) = cel.Offset(0, 12)
 'Ligne'
        Sheets("Condi").Range("U2").Offset(j, 1).Value = "Condi"
'Code PF'
        Sheets("Condi").Range("U2").Offset(j, 2) = cel.Offset(0, 0)
'N° Programme'
        Sheets("Condi").Range("U2").Offset(j, 3) = cel.Offset(0, 2)
      
        

        j = j + 1
    End If
Next

'compte le nombre d'actions déjà extractés
n = 0
While Sheets("Bilan Stock").Range("B3").Offset(n, 0) <> ""
    n = n + 1
Wend
n = n + 3

'Copie le tableau temporaire dans l'onglet bilan et le supprime
Range(Sheets("Condi").Range("U2"), Sheets("Condi").Range("U" & Rows.Count).End(xlUp)).Resize(, 4).Copy Destination:=Sheets("Bilan Stock").Range("B" & n)

End Sub

Sub Gestion()
Dim i%, t, f_Condi As Worksheet, f_Bilan As Worksheet

Set f_Condi = Sheets("Condi")
Set f_Bilan = Sheets("Bilan Stock")

t = f_Condi.Range("A1:M" & f_Condi.Range("A" & Rows.Count).End(3).Row)

ReDim a(1 To UBound(t), 1 To UBound(t))
n = 1
For i = 1 To UBound(t)
    If t(i, 3) = f_Bilan.Range("M1") Or t(i, 3) = f_Bilan.Range("N1") Then
        a(n, 1) = t(i, 13)
        a(n, 2) = "Condi"
        a(n, 3) = t(i, 1)
        a(n, 4) = t(i, 3)
        n = n + 1
    End If
Next i

f_Bilan.Range("B" & Rows.Count).End(3).Offset(1, 0).Resize(n, 4) = a

End Sub

Sub Gestion()
Dim i%, t, f_Condi As Worksheet, f_Bilan As Worksheet
Dim Dern_Programme%

Set f_Condi = Sheets("Condi")
Set f_Bilan = Sheets("Bilan Stock")

t = f_Condi.Range("A1:M" & f_Condi.Range("A" & Rows.Count).End(3).Row)

For i = UBound(t) To 1 Step -1
    If t(i, 3) = f_Bilan.Range("N1") Then Dern_Programme = i: Exit For
Next i

ReDim a(1 To UBound(t), 1 To UBound(t))
n = 1
For i = 1 To Dern_Programme
    If t(i, 3) = f_Bilan.Range("M1") Then
        Do Until Dern_Programme = i
        a(n, 1) = t(i, 13)
        a(n, 2) = "Condi"
        a(n, 3) = t(i, 1)
        a(n, 4) = t(i, 3)
        n = n + 1
        i = i + 1
        Loop
    End If
Next i

f_Bilan.Range("B" & Rows.Count).End(3).Offset(1, 0).Resize(n, 4) = a

End Sub