Salut Chris, salut le forum,
Je suis étonné que personne n’ait encore répondu à ta question. Alors je m’y colle même si je sais que je ne propose pas la macro la plus efficace. Mais bon… Elle fonctionne. Il te faudra sans doute l’adapter à ton tableau au niveau des Range et/ou de la feuille. Dans l’exemple j’ai copié de la feuille 1 sur la feuille 2 à partir de la cellule A1.
Public Sub copie()
Application.ScreenUpdating = False
For Each cel In Range("A1:A" & Range("A65536").End(xlUp).Row)
If cel.Value > 18 Then
cel.EntireRow.Copy
ActiveWorkbook.Sheets(2).Select
If ActiveSheet.Range("A1") = "" Then
ActiveSheet.Range("A1").Select
Else
ActiveSheet.Range("A" & Range("A65536").End(xlUp).Row + 1).Select
End If
ActiveSheet.Paste
ActiveWorkbook.Sheets(1).Select
End If
Next
Application.ScreenUpdating = True
End Sub
À plus,
Robert