ERREUR EXECUTION '13' : incompatibilité de type. ou ERR '28' : espace pile insufisant

Re : ERREUR EXECUTION '13' : incompatibilité de type. ou ERR '28' : espace pile insuf

Il vous a déjà été répondu par plusieurs personnes ici.

Re : ERREUR EXECUTION '13' : incompatibilité de type. ou ERR '28' : espace pile insuf

Bonjour
voici le VB corrigé pour ne pas produire d'erreur:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xcell As Range
On Error Resume Next
For Each xcell In Target
If Not Intersect(xcell, Range("B6:B145")) Is Nothing Then
Application.EnableEvents = False
xcell.Value = DateSerial(Cells(1, xcell.Column), Month(xcell.Value), Day(xcell.Value))
Application.EnableEvents = True
End If
Next
End Sub

Rino