O.Range(O.Cells(PLV, 3), O.Cells(PLV, 3).Offset(NCB - 1, 0)).Merge 'fusionne les cellules colonne C
.
.
O.Cells(PLV, 3).Value = Me.TextBox1.Value 'renvoie l'[Affaire]
.
.
For I = 0 To UBound(TCB) 'boucle 1 : sur toutes les checkboxes cochées
O.Cells(PLV, 8).Offset(I, 0).Value = Me.Controls("CheckBox" & TCB(I)).Caption 'renvoie le responsable cochée
For L = 1 To 2 'boucle 2 : sur les textboxes des dates [Prévue] et [Réelle] de la checkbox cochée