Code vba qui fonctionne mal

Bonjour

j'ai un fichier qui me sert a faire mes comptes voici le code
erreur sur ligne For L et Userform1
si je met le 1 après userform je n'ai plus accés aux noms qui se trouvent dans Combobox
si je le retire j'ai le message pour For L (erreur de compilation Projet ou bibliothèque introuvable)
Comment supprimer ce problème
Je vous remercie de votre attention
Cordialement

Private Sub UserForm1_Activate()
' Combobox
   For L = 1 To F02.Range("A" & Rows.Count).End(xlUp).Row
      Cmb_Nom.AddItem F02.Range("A" & L)
   Next

   For L = 6 To F02.Range("N" & Rows.Count).End(xlUp).Row
      Cmb_Paiement.AddItem F02.Range("N" & L)
   Next
   TxtDate.Locked = True
End Sub

Private Sub Cmb_Nom_Change()

End Sub

Private Sub Cmb_Paiement_Change()

End Sub

Private Sub CmdDate_Click()
   U_Calandar.Show 1
End Sub

Private Sub CmdAjouter_Click()
'on vérifie que les champs sont bien remplis
   If Cmb_Nom.Text = "" Then
      MsgBox "Veuillez renseigner le nom", vbCritical, "champs manquants"
         Cmb_Nom.SetFocus
      Exit Sub
   End If
Nlig = F01.Range("B" & Rows.Count).End(xlUp).Row + 1
'    on remplit les données dans le tableau
   F01.Range("B" & Nlig).Value = DateValue(TxtDate.Text)
   F01.Range("C" & Nlig).Value = UCase(Cmb_Nom.Text)
   F01.Range("D" & Nlig).Value = UCase(Cmb_Paiement.Text)
   F01.Range("E" & Nlig).Value = TxtEntrée.Text
   F01.Range("F" & Nlig).Value = TxtSortie.Text
   F01.Range("M" & Nlig).Value = UCase(TxtCommentaire.Text)
' on efface le formulaire et on replace le curseur sur la case ( Nom )
   TxtDate.Text = ""
   Cmb_Nom.Text = ""
   Cmb_Paiement.Text = ""
   TxtEntrée.Text = ""
   TxtSortie.Text = ""
   TxtCommentaire.Text = ""
   TxtDate.SetFocus
End Sub

Private Sub Cmdfermer_Click()
   Unload Me
End Sub


Private Sub frmnouvellesaisie_Click()

End Sub

Private Sub TxtEntrée_Change()

End Sub

EDIT : Ajout des balises de code (la coloration syntaxique). Explications disponibles ici : ICI Merci d'y penser dans tes prochains messages.