Rechercher une une date dans une plage en fonction d'un msgbox

Sub Macro1()
Dim D As Variant 'déclare la variable D (Date)
Dim DR As Long 'déclare la variable DR (Date Recherchée)
Dim CH As String 'déclare la variable CH (CHemin d'accès)
Dim CS As Workbook 'déclare la variable CS (Classeur Source)
Dim OS As Worksheet 'déclare la variable OS (Onglet Source)
Dim CD As Workbook 'déclare la variable CD (Classeur Destination)
Dim OD As Worksheet 'déclare la variable OD (Onglet Destination)
Dim TV As Variant 'déclare la variable TV (Tableau des Valeurs)
Dim I As Integer 'déclare la variable I (Incrément)
Dim J As Byte 'déclare la variable J (incrément)
Dim K As Integer 'déclare la variable K (incrément)
Dim DEST As Range 'déclare la variable DEST (cellule de DESTination)
Dim TL() As Variant 'déclare la variable TL (Tableau des Lignes)

deb: 'étiquette
D = Application.InputBox("Veuillez taper la date !", "DATE", Type:=2) 'définit la date D
If D = False Then Exit Sub 'si bouton [Annuler], sort de la procédure
'si non renseignée, message puis retourne à D via l'étiquette "deb"
If D = "" Then MsgBox "Vous devez renseigner la date !": GoTo deb
'si date non valide, message puis retourne à D via l'étiquette "deb"
If Not IsDate(D) Then MsgBox "date non valide !": GoTo deb
DR = CLng(CDate(D)) 'définit la date recherchée DR (cela parmet de passer outre les formats de date)

CH = ThisWorkbook.Path & "\" 'définit le chemin CH
On Error Resume Next 'gestion des erreurs (en cas d'erreur passe à la ligne suivante)
'définit le classeur source CS (génère une erreur si ce classeur n'est pas ouvert)
Set CS = Workbooks("Données trimestrielles de perf SCI.xls")
If Err <> 0 Then 'condition : si une erreur a été générée
    Err.Clear 'supprime l'erreur
    Workbooks.Open (CH & "Données trimestrielles de perf SCI.xls") 'ouvre le classeur CS (c'est pour cela que CH est important !)
    Set CS = ActiveWorkbook 'définit le classeur source CS
End If 'fin de la condition
On Error GoTo 0 'annule la gestion des erreurs
Set OS = CS.Sheets("Données trimestrielles perf SCI") 'définit l'onglet source OS
TV = OS.Range("D1:M" & OS.Range("D" & Application.Rows.Count).End(xlUp).Row) 'définit le tableau des valeurs TV
K = 1 'initialise la variable K
For I = 2 To UBound(TV, 1) 'boucle sur toutes les lignes I du tableau des valeurs TV
    'si la valeur ligne I colonne 10 (=> colonne M) convertie en entier long est égale à DR et n'est pas vide
    If TV(I, 10) <> "" And CLng(CDate(TV(I, 10))) = DR Then
        ReDim Preserve TL(1 To 10, 1 To K) 'redimensionne le tableau des lignes TL (10 lignes , K colonnes)
        For J = 1 To 10 'boucle 2 : sur toutes colonne J du tableau des valeurs TV
            TL(J, K) = TV(I, J) 'récupère en ligne J de TL la valeur colonne J de TV (= transposition)
        Next J 'prochaine colonne de la boujcle 2
        K = K + 1 'incrémente K (ajoute une colonne à TL)
    End If 'fin de la condition
Next I 'prochaine ligne de la boucle 1
CS.Close False 'ferme le classeur source CS sans enregistrer
If K > 1 Then 'si K est supérieure à 1 (au moins une occurrence trouvée)
    If K = 2 Then ReDim Preserve TL(1 To 10, 1 To 2) 'si Kest égale à deux (une seule occurrence trouvée) permet l'affichage en ligne
    On Error Resume Next
    'définit le classeur destination CD (génère une erreur si ce classeur n'est pas ouvert)
    Set CD = Workbooks("Performance immobilier.xls")
    If Err <> 0 Then 'condition : si une erreur a été générée
        Err.Clear 'supprime l'erreur
        Workbooks.Open (CH & "Performance immobilier.xls") 'ouvre le classeur CD (c'est pour cela que CH est important !)
        Set CD = ActiveWorkbook 'définit le classeur source CD
    End If 'fin de la condition
    On Error GoTo 0 'annule la gestion des erreurs
    Set OD = CD.Sheets("données performance") 'définit l'onglet OD
    'définit la celllule de destination DEST
    Set DEST = IIf(OD.Range("A1").Value = "", OD.Range("A1"), OD.Range("A" & Application.Rows.Count).End(xlUp).Offset(1, 0))
    'renvoie dans DEST redimensionnée le tableau TL transposé
    DEST.Resize(UBound(TL, 2), UBound(TL, 1)) = Application.Transpose(TL)
End If
End Sub

TL(J, K) = TV(I, J) 'récupère en ligne J de TL la valeur colonne J de TV (= transposition)

If J = 10 Then TL(J, K) = Format(TV(I, J), "yyyy/mm/dd") Else TL(J, K) = TV(I, J) 'récupère en ligne J de TL la valeur colonne J de TV (= transposition)