Colorier la ligne entière boucle

Bonjour,

Je souhaiterais savoir SVP comment, avec l'instruction suivante...

Sub Worksheet_Change(ByVal Target As Range)
If Range("A32") <> "A" Then
Rows(Target.row).Interior.ColorIndex = 6
End If
End Sub

...je peux sélectionner et coloriser la ligne entière dans le code suivant (qui ne colorise que la cellule).Merci!

Sub auto_open()
Dim plage As Range
Dim cl
Dim Target As Range
Set plage = Range("A1:A30")
For Each cl In plage
If cl.Value = "A" Then
cl.Interior.ColorIndex = 6
End If
Next cl