Sub Séparation_Tri_Des_OF_bis()
Range('a1').Select
Range('A1').End(xlDown).Select
Do While ActiveCell.Value <> ''
If ActiveCell.Value = 'aa' Then
ActiveCell.EntireRow.Select
Selection.Cut
Sheets('COMPRESSION').Select
Range('A65536').End(xlUp).Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
Sheets('Feuil1').Select
Selection.Delete
Else
If ActiveCell.Value = 'bb' Then
ActiveCell.EntireRow.Select
Selection.Cut
Sheets('PLAT').Select
Range('A65536').End(xlUp).Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
Sheets('Feuil1').Select
Selection.Delete
Else
Selection.Offset(1, 0).Select
End If
End If
Loop
End Sub