Probléme de selection de plage

bonjour à tous,

Je rencontre un problème, en fait je veux que selon la valeur indiquée dans la colonne 1, la couleur des colonne A à G de cette ligne change de couleur. je suis arrivé à faire changer la couleur de toute la ligne mais je n'arrive pas à limiter le changement de couleur au colonne A à G.

un message d'erreur apparait à l'écran :

Erreur d'exécution '1004&:

Erreur définie par l'application ou par l'objet

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Application.Intersect(Target, Range("$A$1:$A$20")) Is Nothing Then

Select Case Target.Value

Case "Etats 1"

Rows(Target.Columns("A:B").Select).Interior.ColorIndex = 45

Case "Etats 2"

Rows(Target.Columns("A:B").Select).Interior.ColorIndex = 42

Case "Etats 3"

Rows(Target.Columns("A:B").Select).Interior.ColorIndex = 40

Case "Etats 4"

Rows(Target.Columns("A:B").Select).Interior.ColorIndex = 9

Case "Etats 5"

Rows(Target.Columns("A:B").Select).Interior.ColorIndex = 48

End Select

End If

End Sub

je vous dis déjà merci d'avance!!

bonjour

essaie ainsi

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("$A$1:$A$20")) Is Nothing Then
        Select Case Target.Value
            Case "Etats 1"
               ci = 45
            Case "Etats 2"
                ci = 42
            Case "Etats 3"
                ci = 40
            Case "Etats 4"
                ci = 9
            Case "Etats 5"
                ci = 48
        End Select
         Range("A" & target.row & ":G" & target.row).Interior.ColorIndex = ci
    End If

End Sub

Parfait sa marche,

merci beaucoup