Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("C5:G19"), Target) Is Nothing Then
If Application.CountIf(Range(Cells(5, Target.Column), Cells(19, Target.Column)), Target) > 1 Then
MsgBox "double saisie"
Target.ClearContents
End If
End If
End Sub