Anomalie code incrémentation

Bonjour j'ai rédigé le code ci-dessous

Mon problème est que lorsque je run le code la valeur de la cellule E10 est incrémentée de 2 au lieu de 1.

Savez vous comment résoudre ce problème ?

Merci de votre aide

<strong><code>Private Sub CoupMod_Click()

ActiveCell.Select

If ActiveCell.Value <> "" Then
ActiveCell.Clear
End If

If CoupMod.Value = True Then
Spannung.Value = False
FiletniO.Value = False
Fusible.Value = False
OCV.Value = False
FicheCassée.Value = False
GriffeCon.Value = False
Label.Value = False

ActiveCell.Value = "Coup sur Module"
ActiveCell.Font.Bold = False
End If

Worksheets("Stat").Activate
Range("E10") = Range("E10") + 1

Worksheets("Schrott").Activate

End Sub</code></strong>

bonjour,

je ne vois pas d'explication dans ce seul code.

merci de mettre le classeur avec ses macros et les instructions pour reproduire le problème.