Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.Calculation = xlManual
'Ton Code
Application.Calculation = xlCalculationAutomatic
End Sub
...Mémoire vive moins performante, barrettes déficientes. J'ai le même problème et c'est un peu chiant je l'avoue...
Jean-Pierre