Private Sub Workbook_Open()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim TV As Variant 'déclare la variable TV (Tableau des Valeurs)
Dim MSG As String 'déclare la variable MSG (MeSsaGe)
Set O = Worksheets("Feuil1") 'définit l'onglet O
TV = O.Range("A1").CurrentRegion 'définit le tableau des valeurs TV
For I = 2 To UBound(TV, 1) 'boucle sur toutes les ligne sI du tableau des valeur TV (en partant de la seconde)
'si la donnée ligne I colonne 3 de TV est une date, définit le message MSG
If IsDate(TV(I, 3)) Then MSG = IIf(MSG = "", TV(I, 3) & " en ligne " & I, MSG & Chr(10) & TV(I, 3) & " en ligne " & I)
Next I 'prochaine ligne de la boucle
MsgBox MSG 'affiche le message MSG
End Sub