Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False 'désactive les évènements
For Each Target In Target.Areas 'si entrées multiples, pour avoir des cellules jointives
If Application.CountIf(Target, "CAV") Then
Application.Undo 'annule les modifications
UserForm1.Show 'demande le mot de passe
If Not Application.EnableEvents Then Application.Undo 'rétablit les modifications
Exit For
End If
Next
Application.EnableEvents = True 'réactive les évènements
End Sub