
Sub distri_couleur()
Dim Lign As Integer
For Lign = 1 To 12
Worksheets(1).Range("C" & Lign).Value = Worksheets(1).Range("B" & Lign).Interior.Color
Next Lign
End Sub'Remplacer le 12 par le nombre de lignes que vous souhaitez traiter.
Combien cela coûte-t-il au total ? Quelles aides apportent l'état et les acteurs du marché pour alléger cette charge non choisie ? Tous les détails sur Commentçamarche.net.