Message d'erreur

Bonjour

J'ai un message d'erreur sur ce code :

Private Sub UserForm_Initialize()
Dim i As Integer
Dim m As String
    'remplit la liste des mois
    For i = 1 To 12
        m = Format(DateSerial(2015, i, 1), "mmmm")
        Mois.AddItem UCase(Left(m, 1)) & Right(m, Len(m) - 1)
    Next i
    'remplit la liste des années
    For i = 1900 To 2100
        Annee.AddItem i
    Next i
    Jour.Value = Now
End Sub

il me met :

Erreur de compilation - Projet ou bibliothèque introuvable

je m'excuse j'avais pas vue que j'avais déjà posté le sujet plus bas.

OUPSS