Remplacement de contenu

Sub supp()
For n = 2 To Range("C65536").End(xlUp).Row
  If Range("C" & n) = 7 Then
    Range("M" & n) = 0
    Range("V" & n) = 0
    Range("W" & n) = 0
    Range("X" & n) = 0
    Range("Y" & n) = 0
  End If
Next n
End Sub

 Sub travdem()
With Sheets(ActiveSheet.Name)
Dim cellule As Range
Dim nomfeuille1 As String
For Each cellule In .UsedRange.Columns(3).Cells
    If cellule.Value = 7 Then
    cellule.Offset(0, 10) = 0
    cellule.Offset(0, 19) = 0
    cellule.Offset(0, 20) = 0
    cellule.Offset(0, 21) = 0
    cellule.Offset(0, 33) = 0
    End If
Next cellule
End With
End Sub

Sub c_est_aujourdhui_dimanche()
Dim FirstAddress As String
Dim C As Range
With Sheets("Feuil1").Columns(3)
    Set C = .Find(7, LookIn:=xlValues, LookAt:=xlWhole)
    If Not C Is Nothing Then
        FirstAddress = C.Address
        Do
            C.Offset(, 10).Value = 0
            C.Offset(, 19).Resize(1, 4).Value = 0
            Set C = .FindNext(C)
        Loop While Not C Is Nothing And C.Address <> FirstAddress
    End If
End With
End Sub