Aide sur code VBA

Bonjour le forum,

Je souhaite créer un code me permettant de couper coller une ligne entière d'une feuille à une autre sous condition de date.

Le code aurait cette forme :

Sub Congé()

if "date de la plage GY3:GY102 dans la feuille BASE DE DONNEES > DATE"

Then "coupe la ligne entière de la date et colle la ligne dans la Feuille CONGES à partir de la première ligne de la colonne A vide"

End Sub

Merci pour toute aide,

Vincent

Bonsoir,

une proposition,

Sub Congé()
Set ws1 = Worksheets("BASE DE DONNEES")
Set ws2 = Worksheets("CONGES")
ra = "GY"
' datetest à changer si nécessaire
Datetest = Now()
dl = ws2.Range(ra & ws2.Rows.Count).End(xlUp).Row

For i = 102 To 3 Step -1
 If ws1.Range(ra & i) > Datetest Then
  ws1.Rows(i).Copy
  dl = dl + 1
  ws2.Rows(dl).Insert
  ws1.Rows(i).Delete
 End If
Next i
'if "date de la plage GY3:GY102 dans la feuille BASE DE DONNEES > DATE"
'Then "coupe la ligne entière de la date et colle la ligne dans la Feuille CONGES à partir de la première ligne de la colonne A vide"

Set ws1 = Nothing
Set ws2 = Nothing
End Sub

Bonjour et Merci beaucoup pour ce code que j'ai bien compris et pu modifier sans soucis !

Bonne journée,

Vincent