Private Sub Worksheet_Change(ByVal Target As Range)
If Len(Target) > 15 Then
MsgBox ('Entrée non valide : 15 caractères maxi')
Target.Value = Left(Target, 15)
End If
End Sub
ce petit bout de code signale que la saisie n'est pas valide et tronque l'info saisie à 15 caractères.