Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cel As Range
If Not Intersect(Range("testsup_testcar"), Target) Is Nothing Or _
Not Intersect(Range("testsup_dictect"), Target) Is Nothing Then
For Each Cel In Selection
If Len(Cel) > 25 Then
MsgBox "Nombre de caractères limité à 25 au maximum", vbOKOnly + vbExclamation, "TROP LONG"
Cel.Value = ""
End If
Next
End If
End Sub