Comment passer de la ligne 1 à 3 avec ma macro (saut de ligne)

 Sub Baiss_3()
    Dim Lign As Long
    Lign = 3
 
    Do While Cells(Lign, 1).Value <> ""
    If Cells(Lign, 1).Value < Cells(Lign - 1, 1).Value And _
            Cells(Lign - 1, 1).Value < Cells(Lign - 2, 1).Value Then
        Cells(Lign, 2).Value = "X"
        Cells(Lign - 1, 2).Value = "X"
        Cells(Lign - 2, 2).Value = "X"
    End If
    Lign = Lign + 1
    Loop
End Sub