XL 2016 Modification code IF

Bonjour.
Quelle erreur avez vous ?
(joignez le classeur, ce sera plus facile de trouver ce qui ne va pas)

bonjour à tous
Essayer:

Bonjour,

J'avais déjà pensé à cette formule qui fonctionne, mais au bout d'un moment tout revient à l'origine soit par ex 10/01.
le message d'erreur : "la méthode Intersect de l'objet_global a échoué".

On peut utilisé le fichier que j'ai laissé dans Télécharger "Ma Gestion Budget" j'ai fait celui-ci en reprenant la structure de mon fichier pro de 410 lignes.
(Le but recherché est de taper un où 2 chiffres dans la colonne date et obtenir une date entière ex :10/02 selon la feuille du mois).
Merci encore
Daryl.

Voiçi la source que j'utilise, elle vient de LouReeD

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.EnableEvents = False

If ActiveWindow.SelectedSheets.Count > 1 _
Or Sh.Index < 2 And Sh.Index > 13 _
Or Target.Count > 1 Then
Application.Undo
ActiveSheet.Range(Target.Address).Select
Application.EnableEvents = True
Exit Sub
End If

Dim La_date As Date
If Not Intersect(Target, Range("C4:C40")) Is Nothing Then
If Target.Value = "" Then
Application.EnableEvents = True
Exit Sub
End If
On Error Resume Next
La_date = Day(CDate(Target.Value) + 1) & "/" & ActiveSheet.Index - 1 & "/" & Year(Now)

If Err > 1 Then
Target.Value = ""
Target.Select
Application.EnableEvents = True
Exit Sub ' on sort de la procédure
End If
On Error GoTo 0
Target.Value = CDate(La_date)
End If
Application.EnableEvents = True
End Sub