Adapter un code au Workbook

Bonjour le forum ^^

J'aurais besoin d'un petit coup de main pour adapter mon code qui se trouve dans WorkSheet au Workbook pour que la mise en forme se fasse dans n'importe quelle cellule du classeur.

Voici le code:

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim Cell As Range
With Selection
   On Error GoTo Error
   If Selection.Value = Sheets("feuil3").Range("a2") Then Selection.Interior.ColorIndex = Sheets("feuil3").Range("a2").Interior.ColorIndex
  If Selection.Value = "" Then Selection.Interior.ColorIndex = 2
End With
Error:
On Error GoTo 0
End Sub

Merci d'avance de votre aide

Bonjour,

Avec ce code que tu dois placer dans THISWORKBOOK

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)
With Target
If Target = Sheets("feuil3").Range("a2") Then .Interior.ColorIndex = Sheets("feuil3").Range("a2").Interior.ColorIndex
If Target = "" Then .Interior.ColorIndex = xlNone
End With
End Sub

Le code s'exécutera aussi sur la feuille 3.

J'ai supprimé le 2 au profit de xlnone, le On Error et la déclaration de Dim cell qui ne sert pas ici (peut être un résidu d'un code que tu as trouvé d'ailleurs)

Amicalement

Merci de ta réponse Dan, c'est parfait