Bonjour

J'ai un petit problème
j'ai un code qui fonctionne sur un classeur mais pas sur un autre
voici le code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub Workbook_Open()
*
Dim DateExp As Date
Dim ws As Worksheet
Dim Message As String
*
Set ws = ThisWorkbook.Worksheets(1)
*
DateExp = Now + 15
*
i = 2
While Not IsEmpty(ws.Cells(i, 3))
    If ws.Cells(i, 6) <> "" And ws.Cells(i, 6) > Now And ws.Cells(i, 6) <= DateExp Then
        Message = Message & vbCr & ws.Cells(i, 3) & " : Expire dans " & Format(ws.Cells(i, 6) - Now, 0) & _
            " jours (le " & Format(ws.Cells(i, 6), "dd.mm.yyyy") & ")"
    ElseIf ws.Cells(i, 7) <> "" And ws.Cells(i, 7) > Now And ws.Cells(i, 7) <= DateExp Then
        Message = Message & vbCr & ws.Cells(i, 3) & " : Expire dans " & Format(ws.Cells(i, 7) - Now, 0) & _
            " jours (le " & Format(ws.Cells(i, 7), "dd.mm.yyyy") & ")"
    End If
i = i + 1
Wend
*
MsgBox Message, vbInformation + vbOKOnly, "Information Dates d'Expiration"
*
End Sub
vba me signale une erreur de compilation projet ou bibliothèque introuvable
et surligne i=2

Pourtant le même code fonctionne très bien sur un autre classeur.
Je n'est aucune idée de se qui peut crée ça.

Merci d'avance de votre aide