Dim wbks As Workbook, wbkc As Workbook, adr$, chemin$, fin&
Dim itm As Byte
Dim Str_Entretien As String
Application.ScreenUpdating = False
Str_Entretien = ""
'If T1 <> "" Then
Set wbks = ThisWorkbook
adr = ThisWorkbook.Path & "\"
chemin = "\\odr1\desktop\Base de Données.xlsm"
Set wbkc = Workbooks.Open(adr & chemin)
fin = wbkc.Sheets("BD1").Range("A" & Rows.Count).End(xlUp).Row + 1
With wbkc.Sheets("BD1")
.Cells(fin, 1) = TextBox1: .Cells(fin, 2) = TextBox2: .Cells(fin, 3) = TextBox3: .Cells(fin, 4) = ComboBox1
.Cells(fin, 5) = TextBox4: .Cells(fin, 6) = Nat_incident: