Débogage toujours pas résolu !

Bonjour,
Je n'arrive pas à savoir quelle est la partie que je dois rectifier dans le code suivant:
Quand je clique sur débogage c'est les trois dernières lignes qui sont concernées.

voici le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub calcul00()   Dim j As Integer   Application.ScreenUpdating = True   Sheets("SDP").Range(Sheets("SDP").Cells(33, 2), Sheets("SDP").Cells(33, 25)).ClearContents   For j = 2 To 25   Sheets("SDP").Cells(32, j).GoalSeek goal:=0, changingcell:=Sheets("SDP").Cells(33, j)   Next   End Sub

---

Bonjour,

Question: en Cells(32, j), il y a bien une formule?

Cdlt

Oui il y a la les cellules de la ligne 29 moins les cellules de la ligne 33.

Je viens de checker les cells (32;j) la formule n'était pas saisie dans toute les colonnes. Vous aviez raison. Le problème est résolu. Je vous Remercie ARTURO83.