Re : textbox
bonjour à tous, petit code glané ici pour éviter les retours chariots dans les cellules
Dim LeTexte, As String
LeTexte = TextBox1
LeTexte = Application.WorksheetFunction.Substitute(LeTexte, vbCrLf, Chr(10))
ensuite tacellule.value = LeTexte