Bonjour
Tu peux pour cela modifier le Code de feuille
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Not Application.Intersect(Target, Range("$B$7:$B$16")) Is Nothing Then
par
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Not Application.Intersect(Target, Range("$B$7:$B$16")) Is Nothing And Target.Count = 1 Then
mais la solution correcte est cellule par cellule
Cordialement