Private Sub Worksheet_SelectionChange(ByVal R As Range)
If Not Intersect(R, Range("i12")) Is Nothing And Not Sheets("Feuil1").CelluleActive Is Nothing Then
Application.EnableEvents = False: Application.ScreenUpdating = False
If Right(Sheets("Feuil1").CelluleActive, 12) <> " - Outre Mer" Then
If MsgBox("Avez-vous vérifié si pas en Outre Mer ?", vbQuestion + vbYesNo) <>...