Bonjour,

J'ai un petit souci.
On m'a bien aidé déjà auparavant et c'ets grace à ce forum que j'avais trouvé ce code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Worksheet_Change(ByVal Target As Range) 
 
Application.ScreenUpdating = False
 
If Intersect(Target, [$D$4:$GE$39]) Is Nothing Then Exit Sub 
    For Each Cel In Target 
        Set Cel_R = Sheets("Feuil1").[$B$2:$B$31].Find(Cel, LookIn:=xlValues, LookAt:=xlWhole) 
            If Cel_R Is Nothing Then
                Cel.Interior.ColorIndex = xlNone
            Else
        Cel.Interior.ColorIndex = Cel_R.Interior.ColorIndex 
        Cel.Font.ColorIndex = Cel_R.Font.ColorIndex 
        Cel.Font.Bold = Cel_R.Font.Bold 
            End If
    Next Cel
 
End Sub
Ce code marche très bien si je rentre ma ou mes lettres correspondantes.

Par contre, j'ai une feuille qui dans chaque case renvoie à une cellule d'une autre feuille, et la dans cette feuille, ce code ne marche pas...

Quelqu'un peut-il m'aider?

Merci

Cordialement