Ajout d'une colonne à une autre en VBA

Bonjour,

Ce code allait bien jusqu'à aujourd'hui et je ne trouve pas la raison:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Worksheet_Change(ByVal Target As Range)
        Dim isect As Range, c As Range
        Set isect = Intersect(Target, Me.Range("D1:D100")) 
        If Not isect Is Nothing Then
            Application.EnableEvents = False
            For Each c In isect
               If IsNumeric(c.Value) Then
                    c.Cells(1, 3) = c.Cells(1, 3) + c 
                    c.ClearContents
                End If
            Next c
            Application.EnableEvents = True
        End If
    End Sub

Je veux que le chiffre que je met dans la colonne 3 (c) soit ajouté d'office à la colonne d et que le chiffre de la colonne c soit effacé mais que le chiffre de la colonne d reste!
Mais je ne trouve pas pourquoi cela ne va plus.
Merci de votre aide