Sub MargeParColonne()
Dim dercol&, j&
With Sheets("Exemple") 'avec la feuille nommée Exemple
'obtention de la dernière colonne des produits
dercol = .Cells(11, Columns.Count).End(xlToLeft).Column
'on efface la ligne des marges
.Range(.Cells(13, 4), .Cells(13, dercol)).ClearContents
'boucle sur les produits de la colonne 4 à dercol
For j = 4 To dercol
'chercher à rendre la cible (la cellule ligne 30 et colonne j) égale à 0
'avec comme cellule à modifier, la cellule ligne 13 et colonne j
.Cells(30, j).GoalSeek Goal:=0, ChangingCell:=.Cells(13, j)
Next j
End With
End Sub