Autres [RÉSOLU] Problème de formule ou de format

Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [B4:B10000]) Is Nothing Then
        Application.ScreenUpdating = False
        If Target = "" Then     ' Si le montant a été éffacé, on efface le mois et la date
            Cells(Target.Row, Target.Column - 1) = ""
            Cells(Target.Row, Target.Column + 1) = ""
        Else                    ' Sinon on inscrit mois et date
            Cells(Target.Row, Target.Column - 1) = UCase(Format(Date, "mmmm"))
            Cells(Target.Row, Target.Column + 1) = UCase(Format(Date, "dddd dd mmmm yyyy"))
        End If
    End If
Fin:
End Sub