Dim lgLig As Long
Dim lgDerLig As Long
If Range("$Q$1") <> "" Then
For lgLig = 6 To [A65536].End(xlUp).Row
If Range("c" & lgLig).Value = Range("$Q$1") Then
' Dernière ligne libre en colonne A
lgDerLig = Sheets("Feuil3").Range("A" & Cells.Rows.Count).End(xlUp).Row + 1
Sheets("Feuil3").Range("A" & lgDerLig).Value = Sheets("Feuil1").Range("A" & lgLig).Value
Sheets("Feuil3").Range("D" & lgDerLig).Value = Sheets("Feuil1").Range("C" & lgLig).Value
End If
Next lgLig
End If