vous deviez faire ma 2ième correction, donc le "loop" quelque part au milieu du code au lieu de le mettre juste avant "End Sub"
Do While Range("G268").Value <> 0
Range("G268").GoalSeek Goal:=0, ChangingCell:=Range("AP266") '>>>>>>>>>>>> après cette ligne
loop
Do While Range("G272").Value <> 0 '>>>>>>>>>>>>> et avant cette ligne