Faire varier un code en fonction de la date figurant dans une cellule

Bonjour à tous !

Petite question pour faire varier un onglet de destination en fonction de la date qui figure dans ma cellule TV (I,5).

Cette date est en format jj/mm/aaaa. Si c'est en 2020 je veux l'envoyer dans ma feuille NMAL, et si c'est antérieur à 2020, dans un autre.

Je n'arrive pas à formaliser ∈ 2020 ou antérieur à 2020 dans mon code.

For I = 1 To UBound(TV, 1) 
    If TV(I, 7) = "Maladie" ///AND IF TV(I, 5)  appartient à l'année en cours///

Then   
        Set DEST = NMAL.Cells(Application.Rows.Count, "A").End(xlUp).Offset(1, 0)
        OS.Cells(I, "A").Resize(1, 23).Copy
        DEST.PasteSpecial (xlPasteValues) 'colle les valeurs dans DEST
    End If 

Merci d'avance pour le dépannage et bonne journée

Bonjour,

Un essai :

For I = 1 To UBound(TV, 1) 
    If TV(I, 7) = "Maladie" Then
        If Year(TV(I, 5)) = Year(Date) Then 'TV(I, 5) doit être une date valide
             Set DEST = Sheets("NMAL").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)
        Else
             Set DEST = Sheets("Autres").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)
        End If
        OS.Cells(I, "A").Resize(1, 23).Copy
        DEST.PasteSpecial (xlPasteValues) 'colle les valeurs dans DEST
    End If 
    '...
Next I

Bonjour !

J'avais essayé quelque chose comme ça mais ça ne fonctionnait pas... il devait y avoir une autre erreur ailleurs

Merci pour ton aide

Gal a écrit :

Bonjour !

J'avais essayé quelque chose comme ça mais ça ne fonctionnait pas... il devait y avoir une autre erreur ailleurs

Merci pour ton aide

Bonjour,

J'en déduis que ça fonctionne maintenant ?

Oui, merci