salut temjeh
merci pour ton enthousiasme.
pour le premier 'bug' (pour rappel, un bug : Erreur de programmation provoquant un dysfonctionnement logiciel, entraînant parfois le blocage de l'ordinateur.)
dans ton premier post tu demandais de rajouter 40 lignes, maintenant tu voudrais que le code sépare les lignes sur un multiple de 40 ?
pour ceci il te faut jouer avec les lignes :
Rows(ligne + 1 & ':' & ligne + 40).Insert ' qui insert les lignes
et
ligne = ligne + 41 'qui incrémente le numéro de ligne pour la suite du code
Je te laisse faire ceci, tu devrais t'en sortir.
sinon reviens nous voir.
pour le 2ème 'bug' (je te passe le rappel) soit tu utilises le code pour supprimer les ligne, soit tu faire inscrit dans une cellule à la fin du code le mot 'STOP' dans une cellule, et en début de code, tu teste cette cellule.
Je préfère la suppression des lignes, bien plus pratique en cas de modifications des données apres le lancement de la macro.
salut