Microsoft 365 MFC

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D3", "D" & Range("D65536").End(xlUp).Row)) Is Nothing Then
'If Target.Count > 1 Then Exit Sub

With Target 'cellule à adapter
    .NumberFormat = "General"
    If Left(.Value, 1) = "4" Then .NumberFormat = """Blablabla ""General""\" & Year(Date) & """"
End With

End If
End Sub

Private Sub Worksheet_Calculate()
Dim c As Range
Application.ScreenUpdating = False
With [D:D] 'colonne à adapter
    .NumberFormat = "General"
    For Each c In Intersect(.Cells, UsedRange)
        If Left(c, 1) = "4" Then c.NumberFormat = """Blablabla ""General""\" & Year(Date) & """"
    Next
End With
End Sub

Private Sub Worksheet_Calculate()
Application.ScreenUpdating = False
With [D:D] 'colonne à adapter
    .NumberFormat = "General" 'format Standard
    .FormatConditions.Delete 'RAZ
    '---version française---
    .FormatConditions.Add xlExpression, Formula1:="=--GAUCHE(D1)=4"
    .FormatConditions(1).NumberFormat = """Blablabla ""Standard""/" & Year(Date) & """"
    '---version anglaise---
    '.FormatConditions.Add xlExpression, Formula1:="=--LEFT(D1)=4"
    '.FormatConditions(1).NumberFormat = """Blablabla ""General""/" & Year(Date) & """"
End With
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D3", "D" & Range("D65536").End(xlUp).Row)) Is Nothing Then

    If Left(Target.Value, 1) = "4" Then Target = Range("D1").Text & Target.Value & "/" & Year(Date)

End If

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D3", "D" & Range("D65536").End(xlUp).Row)) Is Nothing Then
    Select Case Left(Target.Value, 1)
    Case Is = "4"
    Target = Range("D1").Text & Target.Value & "/" & Year(Date)
    Case Is = "2"
    Target = "blablabla" & Target.Value & "/" & Now() '& Year(Date)
    End Select

End If

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("D3:D" & Rows.Count)) Is Nothing Or Target.Count > 1 Then Exit Sub
Dim texte$, t$, an$
Target.Select
texte = "Blablabla " 'à adapter
t = Replace(Target, texte, "")
If InStr(t, "/") Then t = Left(t, InStr(t, "/") - 1)
If Left(t, 1) <> "4" Then Exit Sub
an = Application.InputBox("Entrez l'année :", "Facture", Year(Date))
If Not an Like "####" Then Exit Sub
Application.EnableEvents = False
Target = texte & t & "/" & an
Application.EnableEvents = True
End Sub