'.../...
With Sheets("Dépannage")
Lign = .Range("A65536").End(xlUp).Row + 1
.Cells(Lign, 1) = Me.TextBox1
.Cells(Lign, 2) = Me.DTPicker3
.Cells(Lign, 3) = Me.TextBox7
.Cells(Lign, 4) = Me.TextBox8
.Cells(Lign, 5) = Me.TextBox5
.Cells(Lign, 6) = Me.TextBox6
End With
Unload Me
Call userform4.Maj_Usf4
End Sub