supprimer valeur dansd colonne à droite

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rg As Range
    Set rg = [C5:D404]
    
    If Target.Rows.Count > 1 Then Exit Sub
    If Target.Columns.Count > 1 Then Exit Sub
    If Not Intersect(Target, rg) Is Nothing Then
        If Target.Column = 3 And Target.Value = 5 Then
            Target.Offset(0, 1).Clear
        End If
    End If
    
End Sub

' =============

Sub EffaceColonneD()
    Dim rg As Range, c As Range
    Set rg = [C5:C404]
    
    For Each c In rg
        If c.Value = 5 Then c.Offset(0, 1).Clear
    Next c

End Sub