Private Sub UserForm_Activate()
With ComboBox1
.List = Feuil1.Range("C2:i" & Rows.Count).SpecialCells(xlCellTypeConstants).Value
.ListRows = Application.Min(.ListCount, 20)
End With
TextBox7 = Feuil1.Range("P6").Value 'Affiche le total dans TextBox7 au lancement du formulaire
End Sub