Private Sub CommandButton1_Click()
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 = "Classeur2.xlsx"
Set wbkc = Workbooks.Open(adr & chemin)
fin = wbkc.Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row + 1
With wbkc.Sheets("Feuil1")
.Cells(fin, 1) = Nom: .Cells(fin, 2) = Prénom: .Cells(fin, 3) = Adresse: .Cells(fin, 4) = Ville
.Cells(fin, 5) = code: .Cells(fin, 6) = IIf(OptB_OUI = True, "OUI", "NON")
If Frame2.Visible = True Then
For itm = 1 To 4
If Controls("CheckBox" & itm) = True Then
Str_Entretien = Str_Entretien & Controls("CheckBox" & itm).Caption & "/"
End If
Next
End If
.Cells(fin, 7) = Mid(Str_Entretien, 1, Len(Str_Entretien) - 1)
End With
wbkc.Close 1
Application.ScreenUpdating = True
End Sub