XL 2013 cellule suivante avec affichage user-form

Public Ligne%
Sub lance()
If Ligne = 0 Then Ligne = 2 ' init Ligne au départ
UserForm1.TextBox1 = Format(Range("N2"), "dddd dd mmm")
Ligne = Ligne + 1
UserForm1.Show
End Sub

Private Sub CommandButton1_Click()
    UserForm1.TextBox1 = Format(Cells(Ligne, "N"), "dddd dd mmm")
    Ligne = Ligne + 1
End Sub

Public Ligne%
Sub lance()
Ligne = 2
UserForm1.TextBox1 = Format(Range("N2"), "dddd dd mmm")
Ligne = Ligne + 1
UserForm1.Show
End Sub

Private Sub CommandButton1_Click()
    If IsDate(Cells(Application.Match(CLng(CDate(TextBox1.Value)), [n:n], 0) + 1, "n")) Then
        TextBox1 = Cells(Application.Match(CLng(CDate(TextBox1.Value)), [n:n], 0) + 1, "n")
    Else
        TextBox1 = [n2] 'retour au debut
    End If
End Sub

Private Sub UserForm_Activate()
    TextBox1 = [n2]
End Sub