Microsoft 365 Ajout d'une constante dans une cellule lors de la saisie

Private Sub Worksheet_Change(ByVal Target As Range)
Dim colon As Range, x As Range, formul$
 
   Set colon = Intersect(Range("a2:a" & Rows.Count), Target)
   If colon Is Nothing Then Exit Sub
   On Error Resume Next
   For Each x In colon
      If x <> "" Then
         If Not x.HasFormula Then
            If IsNumeric(x) Then
               formul = "=" & x.Value & " + " & "$a$1"
               formul = Replace(formul, ",", ".")
               Application.EnableEvents = False: x.Formula = formul: Application.EnableEvents = True
            End If
         End If
      End If
   Next x
End Sub

Private Sub Worksheet_Change(ByVal T As Range)
If Not Intersect(Range("A2:A" & Rows.Count), T) Is Nothing Then
Application.EnableEvents = False
If Len(T) Then
T = T + Cells(1)
Application.EnableEvents = True
End If
End If
End Sub

Private Sub Worksheet_Change(ByVal T As Range)
If Not Intersect(Range("A2:A" & Rows.Count), T) Is Nothing Then
If Len(T) Then
If Not IsNumeric(T) Then Exit Sub
Application.EnableEvents = False
T = T + Cells(1)
Application.EnableEvents = True
End If
End If
End Sub

Private Sub Worksheet_Change(ByVal T As Range)
If Not Intersect(Range("A2:A" & Rows.Count), T) Is Nothing Then
If Len(T) Then
If Not IsNumeric(T) Then: MsgBox "Erreur!", 16: T = "": Exit Sub
If T.HasFormula Then: MsgBox "Erreur!", 16: T = "": Exit Sub
Application.EnableEvents = False
T = T + Cells(1)
Application.EnableEvents = True
End If
End If
End Sub

Private Sub Worksheet_Change(ByVal R As Range)
Dim tablo, i&, x$
Set R = Intersect(Range("A2:A" & Rows.Count), R, UsedRange)
Application.EnableEvents = False
[A1] = Val(Replace(CStr([A1]), ",", "."))
If Not R Is Nothing Then
    If FilterMode Then ShowAllData 'si la feuille est filtrée
    For Each R In R.Areas 'si entrées ou effacements mutiples (copier-coller)
        tablo = R.Resize(, 2).Formula 'matrice, plus rapide, au moins 2 éléments
        For i = 1 To UBound(tablo)
            x = CStr(tablo(i, 1))
            If IsNumeric(x) Then tablo(i, 1) = "=" & x & "+A$1"
        Next i
        R = tablo 'restitution
    Next R
End If
Application.EnableEvents = True
End Sub

Private Sub Worksheet_Change(ByVal R As Range)
Dim ds$, tablo, i&, x$
ds = Application.DecimalSeparator
Set R = Intersect(Range("A2:A" & Rows.Count), R, UsedRange)
Application.EnableEvents = False
[A1] = Val(Replace(CStr([A1]), ",", "."))
If Not R Is Nothing Then
    If FilterMode Then ShowAllData 'si la feuille est filtrée
    For Each R In R.Areas 'si entrées ou effacements mutiples (copier-coller)
        tablo = R.Resize(, 2).Formula 'matrice, plus rapide, au moins 2 éléments
        For i = 1 To UBound(tablo)
            x = CStr(tablo(i, 1))
            If IsNumeric(Replace(x, ".", ds)) Then tablo(i, 1) = "=" & x & "+A$1"
        Next i
        R = tablo 'restitution
    Next R
End If
Application.EnableEvents = True
End Sub