Autres [RESOLU] effacer un nombre dans une cellule

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
  
     If [A1] = "" Then
            [A1].NumberFormat = "#,##0.00 €"
            [A1] = [V1]
End If: End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, .Range("G103", "G105", "G107")) Is Nothing Then

     If ["G103", "G105", "G107"] = "" Then
            ["G103", "G105", "G107"].NumberFormat = "#,##0.00 €"
            ["G103", "G105", "G107"] = ["M103", "M105, "M107"]
End If: End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target("G103", "G105", "G107")) Is Nothing Then

     If ["G103", "G105", "G107"] = "" Then
            ["G103", "G105", "G107"].NumberFormat = "#,##0.00 €"
            ["G103", "G105", "G107"] = ["M103", "M105", "M107"]
            
End If: End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cel As Range, rg As Range, isect As Range
Set cel = Cells(ActiveCell.Row, ActiveCell.Column)
Set rg = Range("A1:A5")
'Set rg = Application.Intersect(Target, Range("A1:A5"))
'Set isect = rg

Set isect = Application.Intersect(cel, rg)
If isect = "" Then                  'Is Empty Then 'Nothing Then '= "" Then
isect.NumberFormat = "#,##0.00 €"
isect.Value = [C1]
End If

End Sub

If Not Application.Intersect(Target, Range("A1,A5,A10…"")) Is Nothing Then

  Application.ScreenUpdating = False
     Range("G103, G105, G107").NumberFormat = "#,##0.00 €"
    Application.EnableEvents = False
    If Not Intersect(Target, Range("G103, G105, G107")) Is Nothing Then
         If Target.Resize(, 1).Value = "" Then Target = "000"
         If Range("G103") = "" And Range("G105") = "" And Range("G107") = "" Then
            Range("G103, G105, G107").NumberFormat = "#,##0.00 €"
            Range("G103, G105, G107") = Range("M103, M105, M107")
        End If
    End If
Sortie:
    Application.EnableEvents = True