Calcul de date

LigneEnLecture = 7
    'Déclaration de la variable DateDeFinalisation de type Date
    Dim DateDeFinalisation As Date
    'Déclaration de la variable DateDeFinalisation de type Date
    Dim DateAujourdhui As Date
    'Affection à la variable DateAujourdhui à la date d'aujourd'hui
    DateAujourdhui = Now
    'Cette variable représente le numéro de la ligne où finit le contenu des données (fichier Plan)
    Dim LigneFinDonnees As Long
    'Affectation du numéro de la ligne où termine le contenu des données à la variable FinDonnees
    LigneFinDonnees = LesPlans.[A1048576].End(xlUp).Row
    'On parcours l'ensemble des lignes contenant des entrées
    While (LigneEnLecture <= LigneFinDonnees)
        'Sélection de la feuille "Plans" du classeur de gestion
        LesPlans.Activate
        'Affection à la variable DateDeFinalisation la date se trouvant dans la colonne Date Finalisation
        With Cells(LigneEnLecture, 6)
           If IsDate(.Value) Then
               DateDeFinalisation = .Value
           Else
               'Si la colonne n'a pas un format correct de date
               DateDeFinalisation = Now
           End If
        End With
        
        If (Cells(LigneEnLecture, 40) = "Oui" _
          And DateDiff("m", DateAujourdhui, DateDeFinalisation) = 5) Then
                   'Déclaration de la variable LigneFinDonneesArchive de Type Long
                Dim LigneFinDonneesArchive As Long
                'Déclaration de la variable LigneFinDonneesArchive de Type Long
                Dim LigneFinDonneesArchiveSuivisVisiteSignature As Long
                'Sélection de la feuille "Plans" du classeur de gestion
                LesPlans.Activate
                'On sélectionne la ligne à archiver, cad LigneEnLecture
                LesPlans.Rows(LigneEnLecture).Select
                'Copie de la ligne sélectionnée
                Selection.Copy
                'Affectation du bon classeur
                Set ClasseurPlansSignesArchives = Application.Workbooks.Open("\\mv0\Stag\Sta\projet\Automatisation BDD PP\Documents\Développement\Futur Environnement\Gestion des Plans .xlsm")
                 'Ouverture du classeur où seront collées les données de la ligne sélectionnée
                ClasseurPlansSignesArchives.Activate
                'Sélection de la feuille "Plans" du classeur ouvert
                ClasseurPlansSignesArchives.Sheets("Plans ").Activate
                'Affectation du numéro de la ligne où finit le contenu des données à la variable NouvelleLigneDebutDonnees
                LigneFinDonneesArchive = ClasseurPlansSignesArchives.Sheets("Plans").[A1048576].End(xlUp).Row
                'Selection de la ligne où sera copiée l'entrée à archiver
                ClasseurPlansSignesArchives.Sheets("Plans").Rows(LigneFinDonneesArchive + 1).Select
                'Puis on colle le tout sur la fauille
                Selection.PasteSpecial

Sub TonCode()
'Déclaration des variables
Dim LigneEnLecture As Integer
Dim DateDeFinalisation As Date
Dim DateAujourdhui As Date
Dim LigneFinDonnees As Long
    'Affectation du numéro de la ligne de début des données à la variable LigneEnLecture
    LigneEnLecture = 7
    'Affection à la variable DateAujourdhui à la date d'aujourd'hui
    DateAujourdhui = Now
    'Affectation du numéro de la ligne où finit le contenu des données (fichier Plan )
    LigneFinDonnees = LesPlans.[A1048576].End(xlUp).Row
    'On parcours l'ensemble des lignes contenant des entrées
    While (LigneEnLecture <= LigneFinDonnees)
        'Affection à la variable DateDeFinalisation la date se trouvant dans la colonne Date Finalisation
        With LesPlans.Cells(LigneEnLecture, 6)
           If IsDate(.Value) Then
               DateDeFinalisation = .Value
           Else
               'Si la colonne n'a pas un format correct de date
               DateDeFinalisation = Now
           End If
        End With

Option Private Module
Option Explicit

Public Sub code()
Dim d As Date
  ' Date qui sera donnée
  d = #6/14/2016#   ' mm/jj/aaaa
  ' Code qui bascule toutes les données vers un autre fichier
  ' dès qu'il reste 5 mois avant la date donnée
  If EstTempsDeBasculerLesDonnées(d) Then Call BasculerLesDonnées
End Sub

Private Function EstTempsDeBasculerLesDonnées(d As Date) As Boolean
' Test faut-t-il bascuker les données ?
  EstTempsDeBasculerLesDonnées = DateDiff("m", d, Now - Day(d) + 1) >= 5
End Function

Private Sub BasculerLesDonnées()
' Basculement des données
  MsgBox "Basculement des données à développer :" & vbCrLf & _
         "Toi seul connait leur emplacement et leur destination."
End Sub