Erreur d’exécution '6'

Dim i As Long

Private Sub BtValider_Click()
    Dim ligne As Long
    Dim valCh As String
    Dim sh As Worksheet
    Dim valExist As Long
    Set sh = Worksheets("BDT")
    
    valCh = Me.TextBox1.Value
    valExist = chercheVal(sh, valCh)
   
    If valExist Then
        If TextBox2.Value = "" Then
            MsgBox "Ce Code est Déja Attribué":
            Me.TextBox1 = ""
            Me.TextBox2 = ""
        ElseIf TextBox2.Value <> "" Then
            Call modifier(sh, valExist)
        End If
    Else
         Call ajouter(sh)
    End If
End Sub

Function chercheVal(sh As Worksheet, Valeur_Cherchee As String)
    Dim Trouve As Range
    Dim PlageDeRecherche As Range
    
    'On cherche dans la première colonne de la feuille sh
    Set PlageDeRecherche = sh.Columns(1)
    
    'méthode find, ici on cherche la valeur exacte (LookAt:=xlWhole)
    Set Trouve = PlageDeRecherche.Cells.Find(what:=Valeur_Cherchee, LookAt:=xlWhole)

    'traitement de l'erreur possible : Si on ne trouve rien :
    If Trouve Is Nothing Then
        'ici, traitement pour le cas où la valeur n'est pas trouvée
        chercheVal = False
    Else
        'ici, traitement pour le cas où la valeur est trouvée
        chercheVal = Trouve.Row 'retourne la ligne concernée
    End If
End Function

Sub ajouter(sh As Worksheet)
    Dim LastRow As Long
    LastRow = Derniere_Ligne(sh)
    If MsgBox("Confirmez-Vous l'ajout de cet Aricle?", vbYesNo, "Confirmation") = vbYes Then
        sh.Cells(LastRow + 1, 1).Value = Me.TextBox1.Value
        sh.Cells(LastRow + 1, 2).Value = Me.TextBox2.Value
    End If
End Sub

Sub modifier(sh As Worksheet, ligne As Long)
    sh.Cells(ligne, 1).Value = Me.TextBox1.Value
    sh.Cells(ligne, 2).Value = Me.TextBox2.Value
    MsgBox "Modification Effectuée"
End Sub

Function Derniere_Ligne(sh As Worksheet) As Long '
    Derniere_Ligne = sh.Cells.Find("*", Range("A1"), , , xlByRows, xlPrevious).Row
End Function