Longueur de champs

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Plage As Range

Set Plage = Range("H:H") ' Définit la zone de cellules concernées par la macro
Application.EnableEvents = False ' Évite la redondance de la macro en limitant l'action à un seul événement
If Not Intersect(Plage, Target) Is Nothing Then ' Si la cellule modifiée est dans la plage
  If Len(Target.Value) > 30 Then ' et si sa longueur dépasse 30 caractères
    Target.Offset(0, 1) = Mid(Target.Value, 31) ' la cellule à droite récupère les caractères à partir de 31
    Target.Value = Left(Target.Value, 30) ' la cellule modifiée est tronquée à partir du 31ème caractère
  End If
End If
Application.EnableEvents = True
End Sub