Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
'désactive les événements
Application.EnableEvents = False
'Désactive la mise à jour de l'écran pour accélérer la macro
Application.ScreenUpdating = False
MsgBox (" Etablissement numéro " & [c1].Value)
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub