With Sheets("Enr.retard")
derligne = .Cells(Rows.Count, 1).End(xlUp).Row
For cpt = 0 To 2
For lig = 5 To derligne
liste(.Cells(lig, tabloCol(cpt)).Value) = ""
Next lig
Me.Controls("Cb" & cpt + 1).List = Application.Transpose(liste.keys)
liste.RemoveAll
Next cpt
End With