Bonjour,
Il y a du travail !...
Pour commencer :
marge_Pc = Cells(3, 6)
Type_arrondi_Pchamp = Cells(3, 3)
au lieu de :
marge_Pc = Cells(2, 6)
Type_arrondi_Pchamp = Cells(2, 3)
Ensuite ALT F11, puis Ctrl + G (affichage fenêtre Exécution).
Exécuter ta procédure et analyser les résultats dans la fenêtre…
Cdlt.