bonjour Herve
une inspiration subite,j'ai modifié la macro:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.range)
'Si l 'évènement concerne la plage g4......
If Intersect(Target, range('g4:i51,r3:s6,r9:s11,r14:t17,w4:ac9')) Is Nothing Then Exit Sub
For k = 1 To 7
For T = 1 To 300
Target.Interior.ColorIndex = 3
Next T
For T = 1 To 300
Target.Interior.ColorIndex = 2
Next T
If k = 7 Then
Target.Interior.ColorIndex = xlNone 'fond incolore
Target.Font.ColorIndex = 1 'caractères en noir
End If
Next k
range('a1').Select
Worksheets('stock').Select
End Sub
ça fonctionne,mais si tu as une solution plus elegante,je suis preneur
merci quand meme
michel33