VBA: sélection d"onglets datés selon champ de date

voici un exemple de code:

Option Explicit

Private Sub selo()
Dim ddeb As String, dfin As String, sh As Worksheet, wdest As Worksheet, rdest As Range, lcur As Long


Dim ldeb As Long, lfin As Long
ddeb = "10-06-22"
dfin = "05-07-22"
ldeb = stl(ddeb)
lfin = stl(dfin)
Set wdest = ThisWorkbook.Worksheets.Add
wdest.Name = "desty1"
Set rdest = wdest.[a1]
For Each sh In ThisWorkbook.Worksheets
    lcur = stl(sh.Name)
    If lcur >= ldeb And lcur <= lfin Then
        rdest = "'" + sh.Name
        rdest.Offset(, 1) = sh.[e5]
        Set rdest = rdest.Offset(1)
    End If
Next sh
End Sub

Private Function stl(s As String) As Long
stl = 0
On Error Resume Next
stl = CLng(Left(s, 2)) + 100 * CLng(Mid(s, 4, 2)) + 10000 * CLng(Right(s, 2))
End Function

Bonjour,

il faut rajouter cela pour chaque nouvelle cellule voulue c'est bien ça? en changeant la valeur [e6] ?

Ma plage de sélection de données allant de E5 à I76.

Comment prendre l'ensemble de cette sélection selon ce schéma?

Idéalement, si la cellule E d'une ligne est vide, il serait bien de ne pas copier la ligne complète.