Boucler du code....

[Joe]

Bonjour à tous,

Ma question est simple, comment "boucler" le code suivant pour effectuer les changements de la cellule A2 à BN2 (toutes sur une même ligne) ?
L'avantage est de ne pas répéter le code pour chaque cellule.




Sheets("Export").Select
Range("A2").Select
If Range("Export!A2") = "0" Then
ActiveCell.FormulaR1C1 = ""
End If

.........


Merci pour votre aide.

 

[PhiBou]

Salut Joe

Sub Macro1()
Dim Cel As Range
For Each Cel In Range("A2:BN7")
If Cel.Value = 0 Then Cel.FormulaR1C1 = ""
Next Cel
End Sub

a+

PhiBou

 

[Joe]

Super,


merci