Saisie petit code marche pas bien v2

Option Explicit

Private Sub Worksheet_Activate()
'Définit la zone de cellules accessibles
Me.ScrollArea = Me.UsedRange.Address
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
'Si la sélection est multple, sortie de la procédure
If Target.Count > 1 Then Exit Sub
'Définition de la plage de cellules actives
If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
If EstNumerique(Target.Text) And Len(Target) > 1 Then' vérif si chiffres et plus d'1 caractères, puis affichage d'un message d'avertissement
MsgBox "Caractères interdits : (A-Z, a-z), les espaces." & Chr(13) & "Le séparateur décimal est la virgule. " & _
Chr(13) & "(Le nombre saisi doit contenir 8 chiffres au maximum.)" & Chr(13) & _
Chr(13) & " Votre saisie actuelle est : " & Target & " , et contient " & Len(Target) & " caractère(s)." & Chr(13) & _
Chr(13) & " Veuillez recommencer votre saisie avec des données valides. Merci.", _
vbCritical + vbOKOnly, "ERREUR DE SAISIE"
End If
End If
End Sub

Function EstNumerique(r As String) As Boolean
'fonction vba personnaliée utilisant regexp
'regexp = Regular Expression
'autorise seulement la saisie de chiffres (8 au maximum)
With CreateObject("vbscript.regexp")
    .Pattern = "^[0-9,]{1,8}$"' veut dire que des chiffres décimaux,  8 caractères maxi
    EstNumerique = Not (.test(r))
End With
End Function