Heure automatique

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim rng As Range

  'Pas d'action en cas de sélection de plusieurs cellules
  If Target.Count > 1 Then Exit Sub
  'Pas d'action si la cellule est verrouillée
  If Target.Locked Then Exit Sub
  'Définir la plage des cellules susceptibles de recevoir l'information
  Set rng = [B2:C5,E1:G10]
  'Pas d'action hors plage autorisée
  If Intersect(Target, rng) Is Nothing Then Exit Sub
  'Optionnel : Annuler l'effet du clic droit (pas de menu contextuel)
  Cancel = True
  'Oter la protection de la feuille
  ActiveSheet.Unprotect
  'Ecrire la date et l'heure dans la cellule
  Target.Value = Now
  'Vérrouiller la cellule
  Target.Locked = True
  'Protéger la feuille
  ActiveSheet.Protect
  
End Sub