Supprimer le contenu de cellules sous conditions

Question

J'aurais besoin de votre expertise sur ce problème : Sur une plage de cellule donnée (ex : H9 à H13), je voudrais supprimer systématiquement le contenu des colonnes C à G si "Y" est trouvé dans les cellules en H. Je suis limité sur VBA mais en cherchant sur le net, j'ai trouvé quelques codes et j'ai tenté un bricolage : Sub AA() Dim cel As Range For Each cel In Range("H9,H13") If cel = "Y" Then cel.Offset(0, -5).Resize(cel.Rows.Count + 0, _ cel.Columns.Count + 4).Select Selection.ClearContents Selection.Offset(0, 5).Resize(Selection.Rows.Count + 0, _ Selection.Columns.Count - 4).Select End If Next End Sub Il fonctionne ! ... seulement sur la 1ère ligne. Auriez vous des solutions ? Ci joint un fichier xls avec ce code. Merci d'avance ! Cordialement...

Banzai64 · Answer

Bonjour et bienvenu(e)

Remplace la macro actuelle par celle-ci

Sub AA()
Dim cel As Range

  For Each cel In Range("H9:H13")
    If cel = "Y" Then
      Range("C" & cel.Row).Resize(, 5).ClearContents
    End If
  Next
End Sub