[COLOR=blue]Private Sub[/COLOR] Worksheet_Activate()
[COLOR=blue]Dim[/COLOR] texte [COLOR=blue]As String[/COLOR]
[COLOR=blue]Dim[/COLOR] DateValid [COLOR=blue]As Date[/COLOR]
[COLOR=blue]Dim[/COLOR] ligne [COLOR=blue]As Integer[/COLOR]
ligne = 2
texte = ""
[COLOR=blue]Do While[/COLOR] Feuil1.Cells(ligne, 2).Text <> ""
DateValid = [COLOR=blue]CDate[/COLOR](Feuil1.Cells(ligne, 3).Value)
[COLOR=red][B]If DateValid - Now() < 22 Then[/B][/COLOR]
texte = texte & "La " & Feuil1.Cells(ligne, 1).Value & " expire dans " & Int(DateValid - Now()) & " jours" & Chr(13)
[COLOR=red][B]End If[/B][/COLOR]
ligne = ligne + 1
[COLOR=blue]Loop[/COLOR]
MsgBox texte
[COLOR=blue]End Sub[/COLOR]