Bonjour Paldor
Pour ce que tu souhaites, il faut modifier le code de ton USF
Dans la Sub
Private Sub CommandButton1_Click()
Changer la ligne
If Worksheets(S).Name <> "" Then
par
If Worksheets(S).Name <> "CR" Then
Pour les texte tronqué, dans la sub
Private Sub UserForm_Initialize()
Il faut modifier
.ColumnWidths = "50;95;80;80;80;70;80;60"
La première valeur est trop petite, mettre 200 au lieu de 50 (par exemple)
A+