Bonjour,
Je cherche à faire fonctionner la macro ci dessous que j'ai récupérée sur le web :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  'Dans la plage de cellules utilisée ...
  With Me.UsedRange.Rows
    '... sauf la première ligne
    With .Offset(1).Resize(.Count - 1)
      ' - effacer la couleur
      .Interior.ColorIndex = xlNone
      ' - si la cellule active n'est pas dans cette plage : terminé
      If Intersect(Target, .Cells) Is Nothing Then Exit Sub
      ' - sinon : changer la couleur de la ligne
      Intersect(Target.EntireRow, .Cells).Interior.ColorIndex = 3
    End With
  End With
End Sub
J'ai comme message d'erreur :

Erreur d'exécution'1004'
Erreur définie par l'application ou par l'objet


Pouvez vous m'aider à régler ce problème?
Sachez que je suis plus que débutant sur le sujet...

ou peut être avez vous une solution plus simple pour mettre en surbrillance une ligne complète lorsque qu'une cellule est sélectionnée?

Merci