Conseil dans une formul visual basic

Sub coupe()
'Boucle depuis la ligne 3 jusqu'à la ligne 300 2 par 2
For n = 3 To 300 Step 2 ' A ADAPTER
    'Selectionne et coupe de la colonne A à la colonne N
    Range("A" & n & ":N" & n).Select
    Selection.Cut
    'Selectionne la cellule en O ligne précedente et colle
    Range("O" & n - 1).Select
    ActiveSheet.Paste
Next
End Sub