Sub Copier()
'se lance par le raccourci clavier Ctrl+Maj+C
If ActiveWorkbook.Name = ThisWorkbook.Name Or ActiveCell.Row = 1 Then Exit Sub
With ThisWorkbook.Sheets("Demande validation vérificateur")
If .FilterMode Then .ShowAllData 'si la feuille est filtrée
With .Range("A" & .Rows.Count).End(xlUp)(2)
ActiveCell.EntireRow.Copy .Cells
Application.Goto .Cells 'facultatif
End With
End With
End Sub