Formule date

Inutile de chercher, Excel ne propose pas cette fonction.
Il s’agit d’une fonction complémentaire que j’ai créée.

Le code est placé dans un module standard.
Pour le visualiser,
- ouvrir l'éditeur à partir du raccourci clavier ALT+F11,
- ouvrir l'explorateur de projets à partir du raccourci clavier CTRL+R,
- double-cliquer sur Module 1.
Voici le code :

Function Nuitées(DateDepart As Date, DateRetour As Date) As String
Dim NbNuitée As Integer
Dim Texte As String, T As String
Dim d As Date
    NbNuitée = DateRetour - DateDepart
    If NbNuitée > 1 Then
        T = " nuitées :"
    Else
        T = " nuitée :"
    End If
    Texte = CStr(DateRetour - DateDepart) & T & Chr(10)
    For d = DateDepart To DateRetour - 1
        Texte = Texte & Format(d, "dd/mm") & Chr(10)
    Next d
    Nuitées = Left(Texte, Len(Texte) - 1)
End Function

Sous le module de la Feuil1, j’ai également créé une procédure évènementielle qui permet d’ ajuster la hauteur des lignes.

Private Sub Worksheet_Change(ByVal Target As Range)
     Cells.EntireRow.AutoFit
End Sub

A+

Un grand merci Gyrus,
Tout fonctionne c'est super!
Merci bcp pour votre aide,