Private Sub Worksheet_Change(ByVal Target As Range)
Dim cible As Range, P As Range, r As Range, d As Object, d1 As Object, c As Range, a, b, i&, j&
Dim k As Integer
MsgBox ("ligne1")
Application.EnableEvents = False
................... divers calculs ................
Application.EnableEvents = True
End Sub