Bonsoir,
Très bonne idée !!!Jean_Marie, on ne l'avait pas
celle-là dans la panoplie des listes,
mais ........je me demande un truc
on pourrait pas remplacer le Case A, Case B, par un
code du style de "Tableau à la Zon"???????? car j'insite,
je sais, mais si on a 100 items ?????
Case "A"
.Range("C12").Select
ActiveCell.Interior.ColorIndex = 3
Case "B"
.Range("B25").Select
ActiveCell.Interior.ColorIndex = 6
Case "C"
.Range("C10").Select
ActiveCell.Interior.ColorIndex = 33
'Case "D"
Merci Jean-Marie
Celeda