Problème macro (optimisation)

Bonjour forum,

J'ai un code dans ma macro mais elle n'est pas optimale, elle est censée dire que si dans Feuil1 C3= 1 alors on supprime le contenu dans C4 et on supprime le contenu dans AA5 mais cela fonctionne partiellement, si quelqu'un pouvais m'aider, merci d'avance

If Sheets("Feuil1").Range("C3").Value = 1 Then Range("C4").Value = ""
If Sheets("Feuil1").Range("C4").Value = "" Then Range("C4").Activate
If Sheets("Feuil1").Range("C3").Value = 1 Then Range("AA5").Value = ""
If Sheets("Feuil1").Range("AA5").Value = "" Then Range("AA5").Activate

Bonjour

  With Sheets("Feuil1")
    If .Range("C3") = 1 Then
      .Range("C4") = ""
      .Range("AA5") = ""
    End If
  End With

Merci beaucoup