Dim Sh1 as WorkSheet, Sh2 as WorkSheet
Set Sh1=ThisWorkBook.Sheets("Enregistrement")
With Sh1
.Cells(LIG, 1).Value = TextBox8.Value
.End With
ChDir "\\ML350\Qualite\Revue de premier article\Dossier RPA vierge"
Workbooks.Open Filename:= _
"\\ML350\Qualite\Revue de premier article\Dossier RPA vierge\Imp063.xls"
Set Sh2=Workbooks("Imp063").Sheets("Imp20")
With Sh2
.Cells(3, 10) = TextBox5.Text
End With