[VBA/EXCEL] Problème Macro Excel

Bonjour,

Bonjour à tous,

Je suis débutant et même plus que novice dans VBA alors excusez la naïveté de la question mais j'aurai besoin d'un script qui me supprime la valeur d'une cellule si la valeur de la même cellule (même coordonnées) dans une autre feuille est inférieure à 5. J'ai essayé le code suivant mais malheureusement il ne marche que lorsque je sélectionne une seule cellule. Auriez-vous une solution pour pouvoir le faire marcher à l'ensemble des cellules (car j'en ai 25000 !) ?

Merci par avance !


[Code]
Sub MaMacro()

y = ActiveCell.Row
z = ActiveCell.Column
Dim MyCell As Range


For Each MyCell In Selection
If Sheets("1 Fam").Cells(y, z).Value < 5 Then
MyCell.Value = ""
End If
Next MyCell



End Sub
[/Code]