Désolé,
j'ai changé juste les cellule mais aucun événement :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Or Target.Cells(1, 1) = "" Then Exit Sub
If Not Intersect(Range("C3:C20"), Target) Is Nothing Then
If Evaluate("SUMPRODUCT((" & Range("C3:C20").Address & "=" & Target & ")*(" & Range("K3:K20").Address & "=""" & Target.Offset(0, 1) & """))") > 1 Then
MsgBox "Déjà employé pour cette entité"
With Application
.EnableEvents = False
.Undo
.EnableEvents = True
End With
End If
End If
End Sub
If Target.Count > 1 Or Target.Cells(1, 1) = "" Then Exit Sub : sert à quoi?
Merci beaucoup