Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range
Set r = Intersect(Target, Me.UsedRange)
If r Is Nothing Then Exit Sub
For Each r In r 'si entrées multiples
If Len(r) > 39 Then r = Left(r, 39)
Next
End Sub
Merci. Mais je peux pas mettre des macros
Private Sub Worksheet_Change(ByVal Target As Range)
if target.column=1 then
Target = Right(Target, Target.Offset(0, 1))
end if
End Sub