Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, [w38]) Is Nothing Then
If [w38] > 0 Then MsgBox "Ce nombre de jours imputé à la structure concernée représente " & [AC38] & " % de l'écart constaté"
End If
End Sub