For i = 2 To NL 'boucle sur toutes les lignes I du tableau des valeur TV (en partant de la seconde)
'si la données ligne I colonne 1 de TV est égale à la Mutuelle M et la donnée ligne I colonne 2 de TV est égale à la ComboBox1, alimente de dictionnaire D avec la donnée en colonne 3
If TV(i, 1) = M And Me.ComboBox1 = TV(i, 2) Then d(TV(i, 3)) = ""
Next i 'prochaine ligne de la boucle