Macro sélection cellules valeur dans plage de cellules

Bonjour,

Dans une plage de cellules : A11:B160, je souhaite sélectionner les cellules n'ayant pas de résultats, et supprimer la formule qu'elles contiennent.

Merci pour votre aide.

Le Palus

Bonjour!

Sub Supprimer()

Dim Rng As Range
Set Rng = ActiveSheet.Range("A11:B160")

For Each r In Rng

If r.Value = "" Then

r.Select

Selection.ClearContents

End If

Next

End Sub

Cordialement