Effacer le contenu d une cellule si une autre est vide

Bonjour

je veux que vous m'aidiez à insérer sur le bouton un macro qui peut supprimer les valeurs sur la Range("I5:I25") si par contre les valeurs son vide sur la Range("C5:C25").

Merci

Bonsoir Hibachaymae

Voici un code

Sub Button1_Click()
  Dim Cel As Range
  For Each Cel In Range("I5:I25")
    If Range("C" & Cel.Row) = "" Then Cel.Value = ""
  Next Cel
End Sub

A+