Couleurs hauts et bas de page

bonjour guy
voila une macro qui limite le nombre de caractères dans des plages de cellules.
peut-être cela va t'aller?

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Application.ScreenUpdating = False
If Not Intersect(Target, Range("C16:C37")) Is Nothing Then Target = Mid(Target, 1, 40)
If Not Intersect(Target, Range("A16:A37")) Is Nothing Then Target = Mid(Target, 1, 25)
If Not Intersect(Target, Range("B16:B37")) Is Nothing Then Target = Mid(Target, 1, 25)
If Not Intersect(Target, Range("M16:M37")) Is Nothing Then Target = Mid(Target, 1, 14)
Application.ScreenUpdating = False

End Sub

*Bonjour Yvon51
*
*
Merci pour la macro permettant de limiter le nombre de caractères à l'intérieur d'une cellule, mais je ne cherchais en fait qu'une option dans : format / cellule et que j'ai finalement retrouvée dans la suite ... alignement / recopie

Cordialement Guy

PS : tu m'as par contre répondu dans une autre question qui concernait les couleurs de caractères en haut et bas de page, .. restée sans réponse !