Sub test()
'boucle sur les catégorie ( les colonnes )
For y = 2 To 6
'boucle sur les client
For i = 3 To 16
'fais le total d'une colonne c ets le total marqué sur la feuille
Total = Total + Cells(i, y)
Next i
'calcule le pourcentage par rapport au total pour chaque colonne
pourcent = 100 * Total / Cells(18, 8)
'affiche le pourcentage arrondi sur la ligne 19
arron_pourcen = Round(pourcent, 1)
Cells(19, y) = arron_pourcen
'affiche le vrais pourcentage
Cells(20, y) = pourcent
'devrais afficher la meme chose que le total :(
Cells(21, y) = Round(arron_pourcen * Cells(18, 8) / 100, 0)
Cells(22, y) = pourcent * Cells(18, 8) / 100
Cells(17, y) = Total
Total = 0
Next y
Cells(17, 1) = "total macro"
Cells(19, 1) = "pourcent"
Cells(20, 1) = "vrai pourcentage"
Cells(21, 1) = "total calculer avec arrondi"
Cells(22, 1) = "total calculer sans arrondi"
End Sub