Bonjour haonv
c'est bien la colonne S mais ETAT pas MONTANT.
c'est une liste déroulante avec du text : OPERE, ANNULE, REPORTE,...
Mais quand j'ai changé le code, ca ne marche pas avec la liste déroulante mais en texte libre ca marche.
voici les changements :
''sur la ligne suivante, on empêche la sélection de la colonne A à O
''ajuster le "O" de range("A4:O" suivant la colonne "Montant"
If Not Intersect(Target, Range("A4:R" & Range("A4").End(xlDown).Row)) Is Nothing Then
For Each c In Target
''sur la ligne suivante "16" renvoie la colonne "P" . A ajuster suivant la colonne montant
If Cells(c.Row, 19) = "opere" Or Cells(c.Row, 19) = "annule" Then
MsgBox "Une ou plusieurs cellules non modifiables ont été sélectionnées." & vbCrLf & _
"Veuillez refaire votre sélection"
Application.EnableEvents = False
Cells(1, 1).Select
Application.EnableEvents = True
Exit For
End If
Next
End If