Sub Bouton1_QuandClic()
Dim brigitte As Range
For Each brigitte In Range("a1:a" & Range("a65536").End(xlUp).Row)
If Len(brigitte) > 50 Then
brigitte.Offset(0, 1) = Mid(brigitte, 1, 50)
Else
brigitte.Offset(0, 1) = brigitte
End If
Next brigitte
End Sub