Sub Prepare()
Application.ScreenUpdating = False
With Sheets("Mouvement")
DerLgn = .Cells(10000, 17).End(xlUp).Row
If DerLgn > 1 Then
TabTemp = .Range(.Cells(1, 17), .Cells(DerLgn, 19)).Value
For Lgn = 2 To UBound(TabTemp, 1)
Str1 = Str1 & TabTemp(Lgn, 2) & " de " & TabTemp(Lgn, 1) & " à " & TabTemp(Lgn, 3) & Chr(10)
Next Lgn
End If
End With
UserForm2.TextBox4.Text = Str1
Str1 = "": Erase TabTemp
End Sub