Bonjour JeanF,
L'algorithme est un peu compliqué. Je crois que tu t'y es perdu toi-même, et qu'il faut être un peu motivé pour mettre le nez dedans.
Ceci dit, esthétiquement, l'indentation du code donne un joli rendu
Ci-joint une nouvelle version à tester.
L'ordre des boucles est revu : la première boucle est sur la feuille, permettant :
- d'initialiser la cellule de démarrage (variable pour les 2 onglets)
- d'éviter de dupliquer le code suivant (identique pour les 2 onglets).
Globalement, il n'y pas grand chose de modifié dans le code, tu t'y retrouveras.
Et tu pourras poursuivre la partie effacement avec le même principe.
Je n'ai pas compris l'intérêt de boucler sur tous les onglets pour finalement n'en traiter que 2. Peut-être que le vrai fichier alimente les 7 onglets ...
Le désincrémentation de l'indice de boucle au sein même de la boucle dans ton fichier reste obscure et dangereuse.
For F = A To B ' Boucle feuille
If F = A Then ' Si la variable F = A (2)
ElseIf F = B Then ' Sinon pour la variable F = (B)
Else ' Sinon
F = B - 1 ' Valeur de la feuille 7
End If
Next F
Bouben