n° de ligne

Bonjour, j'aurais voulu savoir comment faire pour récupérer le n° de la ligne lorsque IF est True. Je donne mon code
Dim a As Date
For each a In Worksheet("MaFeuille").Columns("q")
If a>10/10/2003 Then
ActiveSheet.Range("c"& monnumérodeligne).Select
Selection.Copy
worksheet("AutreFeuille").Range("a"& monnumérodeligne).Paste
End If
Next a
Quelqu'un pourrait-il me donner une formule pour récupérer "monnumérodeligne"
Par avance merci