1 : 2 : 3 : 4 : 5 : 6 : 7 : 8 : 9 : 10 : 11 : 12 :
ZeroEm secondaire () Faible c comme gamme Faible rng1 comme gamme Le faible WS comme feuille de travail Placer le WS = la gamme (« AllAll »). Parent Pour chaque c dans la gamme (« tintements ») Si UCase$ (c.Value) = « VRAI » puis Placer rng1 = intersectent (gamme (« AllAll »), WS. Rangées (c.Row)) rng1.Value = « 0 » Finir si Après Sous-marin d'extrémité