Remplacer Les Boucles ListBox ComboBox Couleur Frames

[MuscatMimi]

Remplacer Les Boucles des ListBox, ComboBox,Frames

Bonjour a tout le Forum

dans ce Fichier (joint)j'aimerais remplacer toutes les Boucles
afin de pouvoir attribuer un format a Chaque Lignes de Colonnes

Du genre

. List(Lgn, 6) = Format(Tabtemp(Ligne, 7), "# ##0.00 €") 'Crédit6,7

Afin que toutes les procédure de mon Code fonctionne

J'ai essayé depuis ce matin ,je n'y arrive pas

Je deviens vieux je pense


Merci a tous a l'avance
Cdlt