Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$G$6" Then MsgBox ("Comment ne pas afficher ce message si pas volontairement cliqué sur la cellule??")
If Target.Address = "$G$5" Then Application.MoveAfterReturn = False
If Target.Address <> "$G$5" Then Application.MoveAfterReturn = True
End Sub