LOULOU

Private Sub Worksheet_Change(ByVal Target As Range)
    ' Détection de la modification d'une plage
    ' Target correspond à la plage cible qui est F4:F14 assignée
    If Target.Count > 1 Then Exit Sub
    ' Si une modification est détectée dans la plage cible alors
    If Not Application.Intersect(Target, [F4:F14]) Is Nothing Then
    ' La méthode Application.Intersect permet d'intéragir avec une action de l'utilisateur
    ' Tant qu'aucune action de l'utilisateur n'est détecté dans la plage définie, on arrête le script
    ' Sinon, on exécute le code suivant


    End If
End Sub