Bonjour GMB et Daniel,
@ gmb : Le fichier bloquait au début en disant qu'il y avait des pb de variable....mais maintenant il fonctionne et ca me plait.
Par contre je souhaiterai appliquer cette idée dans un cas concret dans un classeur...mais je maitrise mal les macros.
Peux-tu m'expliquer chaque ligne de code afin de je puisse l'adapter à mon cas?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For col = 2 To 10
n = Choose(col, 2, 9, 15, 19, 21, 24, 35, 37, 39, 40)
Set cell = Range(Cells(1, col), Cells(10, col)).Find(Range("A1"), lookat:=xlWhole)
If Not cell Is Nothing Then
Range("A1").Interior.ColorIndex = n
End If
Next col
End Sub
Je te remercie.
@ Daniel : j'ai effectivement trop de cas différents, merci quand même Daniel.
A bientôt.