Copie conditionnée date - VBA

Bonjour,

Je me permets de solliciter votre aide pour la réalisation d'une macro.
J'ai besoin que ma macro déclenche une copie de toute la ligne du classeur "Automatisation" si la date présente dans la colonne E date de moins de 90 jours, et la colle dans le classeur "Carnet de bord". (En gros si il y a eu un changement sur la ligne, l'analyste change la date, s'il a changé la date, la ligne doit être copiée en valeur dans le classeur carnet de bord à la suite des précédentes).

J'ai rédigé un code mais rien ne se produit lorsque je le lance. Je m'apprête à m'arracher le scheveux par poignée, pourriez-vous m'aider? :)

Voici le code:

Sub Bouton1_Clic()

Dim Automatisation As Workbook, Carnetdebord As Workbook
Dim Colonne As Integer
Dim Ligne As Integer
Dim datedemodif As Date

Set Automatisation = Application.Workbooks.Open("S:\AD Conseil\Fonds\Automatisation.xlsm", , True)
Set Carnetdebord = ThisWorkbook

datedemodif = Automatisation.Sheets("Fonds").Range("E1").Value

Automatisation.Sheets("Fonds").Activate
For Ligne = 1 To 300
If datedemodif >= Now + 90 Then
EntireRow.Copy
Workbooks("Carnetdebord").Sheets("Import").Select
Ligne = Sheets("Import").Range("A3").End(xlDown).Row + 1
ActiveSheet.Paste
End If
Next

End Sub


Compte tenu de la lourdeur extrême du fichier, je ne pourrai malheureusement pas vous le transmettre.

Merci d'avance.