Répéter une macro

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Message As String, Valeur As Long
    With Target
        If .Address(False, False) = "C8" Then
            Valeur = .Value
            Message = "Valider la saisie de " & Valeur & " en " & .Address(False, False)
            If MsgBox(Message, vbYesNo) = vbNo Then Exit Sub
            Range("D8").Value = Range("D8").Value + Valeur
            Application.EnableEvents = False
            .Value = Empty
            Application.EnableEvents = True
        ElseIf .Address(False, False) = "E8" Then
            ' ... ton code
        ElseIf .Address(False, False) = "G8" Then
            ' ... ton code
        End If
    End With
End Sub

[COLOR=#333333]Pour les lignes suivantes, je suppose que je continue avec la commande ElseIf?[/COLOR]

Private Sub Worksheet_Change(ByVal Cible As Range)
Dim Message As String, Plg As Range, Cel As Range

    Set Plg = Intersect(Cible, Range("C8:C96,E8:E96,G8:G96"))
    If Not Plg Is Nothing Then
        For Each Cel In Plg.Cells
            With Cel
                If Not IsEmpty(.Value) And IsNumeric(.Value) And .Value <> 0 Then
                    Message = "Valider la saisie de " & .Value & " en " & .Address(False, False)
                    If MsgBox(Message, vbYesNo) = vbYes Then
                        Application.EnableEvents = False
                        .Offset(0, 1).Value = .Offset(0, 1).Value + .Value
                        .Value = Empty
                        Application.EnableEvents = True
                    End If
                End If
            End With
        Next
    End If

End Sub