Probleme de constant plus constante et de recherche avec find

Bonjour,


Voici mon code

Private Sub cbValiderMandant_Click()
Dim CelMandat As Range
Dim CeLot As Range 
Dim NomMandat As String
Dim plage As string

    'Saisie des coordonnées 
    'CelMandat = ActiveCell.Address

    NomMandat = Range("F" & ActiveCell.Row).Value
    FinList = 10
    DebList = 6
    plage = "C" & DebList & ":C" & FinList
    
    'Cherche adresse du lot 
    If tbLot1 <> 0 Then
        'Cherche adresse du lot n° 1
        Set CeLot = Range(plage).Find(tbLot1, "C" & (DebList - 1), LookIn:=xlValues, LookAt:=xlWhole)

        Range("N3") = CeLot         'pr controle
        
        If CeLot Is Nothing Then
          MsgBox "Lot Inconnu 1"
          Exit Sub  'sortie ou sélection manuelle
        End If
        'Copie du nom 
        Range("M" & CeLot.Row).Value = NomMandat
    End If

    If tbLot2 <> 0 Then
        'Cherche adresse du lot n° 2
        Set CeLot = Range("C" & DebList & ":C" & FinList).Find(tbLot2.Value, "C" & DebList, xlValues, xlWhole)
        If CeLot Is Nothing Then
          MsgBox "Lot Inconnu 2"
          Exit Sub  'sortie ou sélection manuelle
        End If
        'Copie du nom 
        Range("M" & CeLot.Row).Value = NomMandat
    End If

    If tbLot3 <> 0 Then
        'Cherche adresse du mandant du lot n° 3
        Set CeLot = Range("C" & DebList & ":C" & FinList).Find(tbLot3.Value, "C" & DebList, xlValues, xlWhole)
        If CeLot Is Nothing Then
          MsgBox "Lot Inconnu 3"
          Exit Sub  'sortie ou sélection manuelle
        End If
        'Copie du nom
        'Range("M" & CeLot.Row).Value = NomMandat
    End If

    'NoEvents = True
    tbLot1.Text = ""
    tbLot2.Text = ""
    tbLot3.Text = ""
    'NoEvents = False
    Exit Sub
End Sub

1er problème:
J'ai déclaré mes constantes debList et FinList dans "ThisWorbook" mais elles sont toujours vide lorsque je valide le bouton de commande (ValiderMandant) de mon formulaire. Alors je les ai redéclaré dans ma feuille mais rien ne change. c'est pourquoi je les déclare dans ma procédure. mais cela ne m'arrange pas du tout car j'en ai besoin dans tout mon classeur.

Alors comment dois-je faire svp?

2e problème: pourquoi le message d'erreur "erreur d'exécution 13" , pour la ligne en gras, svp?




Savoir dire NON est un devoir et une force! N'ayez pas peur! L'union fait la force!

Passez en résolu si ça l'est!