Erreur incompatibilité 13 excel VBA

Bonjour,

Sur mon code, j'ai erreur 13 lorsque je met la macro, le code ci-dessous
       

Private Sub cbx_enregistrer_Click()

Dim dl As Integer


If Me.txt_adresse <> "" And Me.txt_cp <> "" And Me.txt_mail <> "" And Me.txt_nom <> "" And Me.txt_pays <> "" And Me.txt_prenom <> "" And Me.txt_telephone <> "" And Me.txt_ville <> "" Then
    
    'demander une confirmation de la commande
    If MsgBox("Voulez-vous valider la saisie ?", vbYesNoCancel, vbQuestion) = vbYes Then
    
    
        Sheets("Liste Clients").ListObjects(1).ListRows.Add
        dl = Sheets("Liste Clients").Range("b9999").End(xlUp).Row
        
        'Afficher les information dasn la base de données
        Sheets("Liste Clients").Range("B" & dl) = Me.label_info_client.Caption
        Sheets("Liste Clients").Range("C" & dl) = Me.txt_nom
        Sheets("Liste Clients").Range("D" & dl) = Me.txt_prenom
        Sheets("Liste Clients").Range("E" & dl) = Me.txt_adresse
        Sheets("Liste Clients").Range("F" & dl) = Me.txt_cp
        Sheets("Liste Clients").Range("G" & dl) = Me.txt_ville
        Sheets("Liste Clients").Range("H" & dl) = Me.txt_telephone
        Sheets("Liste Clients").Range("I" & dl) = Me.txt_telephone2
        Sheets("Liste Clients").Range("J" & dl) = Me.txt_mail
       

'l'erreur apparait sur la ligne suivante :
        Sheets("Config").Range("d9") = Sheets("Config").Range("d9") + 1
        
        ThisWorkbook.Save
    
        Unload Nouveau_Client
                
        
Else
MsgBox "Pas de commande disponible"
    

End If

End If

End Sub

Le code doit récupérer le code client et rajouté +1 a chaque création d'un de plus, 

Si vous pouvez m'aider 

Merci
        

    

Windows / Edge 114.0.1823.86