Copier/coller automatique avec condition

Bonjour,

Je souhaite faire copier/coller d'une ligne dans un autre onglet avec une condition de date.

J'ai mis des explications dans le fichier.

Si quelqu'un peut m'aider, je vous remercie par avance.

Bonne journée.

Bonjour,

à tester,

Sub test()
For i = 2 To Sheets("PC").Cells(Rows.Count, 12).End(xlUp).Row
  If Sheets("PC").Cells(i, 12) < DateSerial(Year(Date), Month(Date) - 1, Day(Date)) Then
    Rows(i).Copy Sheets("A etalonner").Cells(Sheets("A etalonner").Cells(Rows.Count, 1).End(xlUp).Row + 1, 1)
  End If
Next
End Sub

Bonjour,

Je n'arrive pas a le faire fonctionner.

Merci

Bonjour

pour que cela puisse fonctionner il faut enregistrer ton classeur avec Prenant en charge les macros

ci-joint le fichier j'ai rajouté juste un message box

merci à Sabv

crdlt,

André