Macro date suivante

Sub DateSuivante()
'il faut en premier nommer la plage
'insertion nom definir
'ou onglet formule / gestionnaire de noms / nouveau sur Xl2007
'le nom ListeDate
'la formule =DECALER( 'Feuil1 (2)'!$B$3;0;0;NBVAL( 'Feuil1 (2)'!$B:$B)-1;1)
'cela te permet de rajouter des lignes et mettre à jour la plage

'si le rang de la valeur de E2 est inférieur au nombre de ligne de la plage
If Application.Rank([e2], Range("ListeDate"), 1) < Range("listedate").Rows.Count Then
  'on prend le rang supérieur
  [e2] = Application.Index(Range("ListeDate"), Application.Rank([e2], Range("ListeDate"), 1) + 1)
Else: MsgBox "yenaplu"
End If
End Sub