Sub CB_SelectColumns_Click()
Dim Last_Column_targetfolder As Integer
Dim i As Integer
Dim title As String
Dim x As Variant, CheckBoxTitle As String
'''' Setting error messages
If targetfoldername = "" Or sourcefoldername = "" Then
MsgBox "Message", vbExclamation, "Error !"
Exit Sub
End If
If TB_title.Text = "" Then
MsgBox "Message d'erreur", vbExclamation, "Error !"
Exit Sub
End If
''''
Call UnhideColumns_targetfolder_SC(targetfoldersheet)
UF_ProjectType.Hide
title = TB_title.Text
Call LastColumn_targetfolder_SC(targetfoldersheet, Last_Column_targetfolder)
For i = 1 To Last_Column_targetfolder
If Not targetfoldersheet.Cells(2, i) Like "Version" Then
x = Split(targetfoldersheet.Cells(2, i), Chr(10))
CheckBoxTitle = x(0)
UF_Columnstoupdate.LB_CheckBox.AddItem CheckBoxTitle
End If
Next
UF_Columnstoupdate.Show 0
End Sub