Création Macro pour faire une insertion entre une plage de ligne

Bonjour,

Je me permets de poser ici une demande d'aide, en effet, je souhaiterai créer une macro permettant de faire insérer une ligne entre chaque ligne comme le tableau ci dessous, en entrant le numéro des lignes pour la plage concernée

Auriez vous une idée ?

Bonjour Toi, bonjour le forum,

Tableau structuré, tableau normal ?

en entrant le numéro des lignes pour la plage concernée ?!...

Un fichier exemple eût été bien plus parlant qu'une photo.

Voici le résultat souhaité ,

de base toutes les lignes se suivent et à partir de la ligne 95 j'ai du rajouter une ligne vide à la main entre chaque valeurs jusqu'à la fin du tableau et je souhaiterai automatiser cela

Merci à toi pour ton aide ;)

Re,

Toutes les lignes ne se suivent pas, les lignes 85 et 86 sont vides... Pourquoi ?
Pourquoi à partir de la 95, c'est fixe ou c'est un choix de l'utilisateur ?

en fait je dois les copier sur une feuille spéciale qu'on a fait pour moi sur lesquels certaines valeurs sont séparés par une ligne vide

en fait certains points sont mesures tous les 20 m et d'autres tout les 10 d'où ce saut de ligne

une idée

Ronjour Toi, bonjour le forum,

Des idées c'est pas ça qui manque mais ton problème est tellement mal exposé qu'on ne sait par quel bout le prendre. Tu ne dis pas de quelle ligne à quelle ligne tu veux agir...

Essaie ce code :

Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim LD As Variant 'déclare la variable LD (Ligne de Début)
Dim LF As Variant 'déclare la variable LF (Ligne de Fin)
Dim I As Integer 'déclare la variable I (Incrément)

Set O = Worksheets("Feuil1") 'définit l'onglet O (à adapter à ton cas)
LD = Application.InputBox("À partir de quelle ligne voulez-vous commencer ?", "DÉBUT", Type:=1) 'affiche la boite d'entrée LD qui définit la ligne de début
If LD = False Then Exit Sub 'si bouton [Annuler], sort de la procédure
LF = Application.InputBox("Jusqu'à quelle ligne voulez-vous agir ?", "FIN", Type:=1) 'affiche la boite d'entrée LF qui définit la ligne de fin
If LF = False Then Exit Sub 'si bouton [Annuler], sort de la procédure
For I = LF + 1 To LD + 1 Step -1 'boucle inversée sur toutes les lignes I de LF+1 à LD+1 en remontant
    O.Rows(I).Insert Shift:=xlUp 'insère une ligne au dessus de la ligne I
Next I 'prochaine ligne de la boucle
End Sub

Super ça semble fonctionner vraiment bien merci ThauTheme

Par contre elle ne semble pas s'arreter à la ligne de fin malheureusement

Re,

Comment ça ?

Par contre elle ne semble pas s'arreter à la ligne de fin malheureusement

En pièce jointe un fichier exemple. Feuil1= avant macro , Feuil2 = après macro.
J'ai tapé 10 pour la ligne de début et 25 pour la ligne de fin.

Alors, ça s'arrête ou pas !?

Ca a l'air de marcher un peu mieux, merci beaucoup !!!! Merci THAUTHEME