VB erreur de code sur excel 2007

Bonjour tout le monde,
je travail sur Microsoft excel 2007
j'ai une erreur sur mon code et je ne sais pas comment la résoudre
le code est :

Private Sub UserForm_Activate()

    MoisCourant = Month(Date)
    AnneeCourante = Year(Date)

    'Statistiques sur la première période
    If (MoisCourant < 7) Then
        'Période 1 du 31 décembre au 1er juillet
        'P1Debut.Text = DateValue("12/31/" + Str(AnneeCourante - 1))
        'P1Fin.Text = DateValue("07/01/" + Str(AnneeCourante))
        P1Debut.Text = DateSerial(Str(AnneeCourante - 1), 12, 31)
        P1Fin.Text = DateSerial(Str(AnneeCourante), 7, 1)
    
        'Période 2 du 30 juin au 1er juillet
        'P2Debut.Text = DateValue("06/30/" + Str(AnneeCourante))
        'P2Fin.Text = DateValue("07/01/" + Str(AnneeCourante))
        P2Debut.Text = DateSerial(Str(AnneeCourante), 6, 30)
        P2Fin.Text = DateSerial(Str(AnneeCourante), 7, 1)
    
        'Période 3 du 1er juillet au 31 décembre
        'P3Debut.Text = DateValue("07/01/" + Str(AnneeCourante))
        'P3Fin.Text = DateValue("12/31/" + Str(AnneeCourante))
        P3Debut.Text = DateSerial(Str(AnneeCourante), 7, 1)
        P3Fin.Text = DateSerial(Str(AnneeCourante), 12, 31)
    Else
        'Période 1 du 30 juin au 1er janvier
        'P1Debut.Text = DateValue("06/30/" + Str(AnneeCourante))
        'P1Fin.Text = DateValue("01/01/" + Str(AnneeCourante + 1))
        P1Debut.Text = DateSerial(Str(AnneeCourante), 6, 30)
        P1Fin.Text = DateSerial(Str(AnneeCourante + 1), 1, 1)
    
        'Période 2 du 31 décembre au 1er janvier
        'P2Debut.Text = DateValue("12/31/" + Str(AnneeCourante))
        'P2Fin.Text = DateValue("01/01/" + Str(AnneeCourante + 1))
        P2Debut.Text = DateSerial(Str(AnneeCourante), 12, 31)
        P2Fin.Text = DateSerial(Str(AnneeCourante + 1), 1, 1)
    
        'Période 3 du 1er janvier au 30 juin
        'P3Debut.Text = DateValue("01/01/" + Str(AnneeCourante + 1))
        'P3Fin.Text = DateValue("06/30/" + Str(AnneeCourante + 1))
        P3Debut.Text = DateSerial(Str(AnneeCourante + 1), 1, 1)
        P3Fin.Text = DateSerial(Str(AnneeCourante + 1), 6, 30)
    End If
    
End Sub

le message d'erreur est : "erreur de compilation : Projet ou bibliothèque introuvable"
la phrase surligné en jaune est celle qui est en gras et en italique ici,
et le mot surligné en bleu est souligné ici.
merci a tous ceux qui pouront m'aider !!