VBA, erreur 13 non permanent

Bonjour le forum, je viens demander de l'aide.

J'ai un fichier avec un userform qui transfert des données dans un tableau en fonction de la date et le type d'article. Tout marche en principe mais le il arrive qu'excel renvoi une erreur incompatibilité de donnée alors que rien n'a changé. Sans faire de modif lorsque je reessai il arrive que ca marche de nouveau. J'arrive pas a comprendre cette erreur. Possible de m'aider a la resoudre definitivement?

Ci joint un fichier representatif et la ligne surlignée en cas d'erreur.

Merci de votre aide.

Bonjour,

une explication possible, c'est que la date n'existe pas dans ta feuille "ENTER" ou que la date n'a pas le bon format

Private Sub CommandButton1_Click()
    Dim Lig As Long, Col As Long, r As Range
    If Me.TextBox3 = "" Or TextBox2 = "" Then
        MsgBox "erreur"
        Exit Sub
    End If
    With Sheets("ENTER")
        'On Error GoTo ErrHandler
        Lig = Application.Match(Me.TextBox3, Sheets("ENTER").[noms], 0)
        Col = Application.Match(Me.TextBox1, Sheets("ENTER").[dates].Value, 0)
        If Err = 0 Then
            With Application.Index(.[tableau], Lig, Col)
                .Value = Me.TextBox2.Value
            End With
        End If
    End With
End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Me.TextBox1 = Format(Me.TextBox1, "dd/mm/yyyy")
End Sub

Private Sub UserForm_Initialize()
    TextBox1 = Format(Now, "dd/mm/yyyy")
End Sub

Certainement h2so4

Je regarde ton code pour voir si cava