re
en fait j'ai compris
ligne jaune = ligne en erreur dans le Débogage c'est à dire qu'il y a une erreur dans ton code
il y en a mème plusieurs
la première qui provoque l’arrêt en débogage
With Sheets("Feuil1")
tu exécute le calcul du rectangle sur toute la feuille et arrivé à 32767 il y a dépassement de capacité
pour éviter cela en employant ton code si une des cellules de la colonne A ou B est vide il faut sortir de la sub
la seconde tu test si les cellule des colonne a et b sont = à espace
Do While Cells(i + 1, 1) <> " " And Cells(i + 1, 2) <> " "
si tu veux tester = vide il faut mettre
Do While Cells(i + 1, 1) <> "" And Cells(i + 1, 2) <> ""
la troisieme tu met le compteur de ligne à 1
i = 1
puis tu ajoute 1 avant de faire quoi que ce soit donc i est = à 2
puis tu effectue le calcul sur i+1
Cells(i + 1, 3) = Cells(i + 1, 1) * Cells(i + 1, 2) ' ligne donnée en jaune après exécution
donc tu commence ton traitement en ligne 3
tu devrais tout de même suivre la formation COURS VBA et COURS VBA AVANCE sur ce site ce sont des formations évolutive très bien faite qui te permettrons de progresser en douceur parce que là tu applique un peu la devise Shadoks
'Ce n'est qu'en essayant continuellement que l'on finit par réussir....'
A plus sur le forum