Bonjour
La cause en est que mon Excel 2003 et ta version 2010 ont un fonctionnement différent.
Solution:
Quand le message d'erreur s'affiche, tu cliques sur Débogage et tu vois la ligne de Code
If Not Intersect(Range("D3,D4,D7,D8"), Target) Is Nothing Then
et là, tu remplaces les virgules par des points pour avoir
If Not Intersect(Range("D3.D4.D7.D8"), Target) Is Nothing Then
Cordialement