Bonjour,

Ayant encore et toujours du mal avec VBA je me tourne une nouvelle fois vers ce cher forum qui m'est toujours venu en aide

J'ai créé un bouton qui m'insère une nouvelle ligne tout en copiant la ligne précédente. Mon problème est que je n'ai pas besoin de toute la ligne mais seulement de la cellule de la première colonne de cette ligne et de la 8ème.

L'intérêt est de gérer un planning en ajoutant des lignes qui conservent les formules de la ligne précédente mais ces formules se trouvent uniquement en colonne A et H. Je n'ai donc pas besoin de ce qui se trouve entre et après.
Je vous met le code que j'ai fait pour le moment.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Option Explicit
 
Sub InsererLigneSem1()
Dim L As Long
 
 
        L = ActiveCell.Row
 
            With Sheets("Semaine 1")
                .Rows(L - 1).Copy
                .Rows(L).Insert Shift:=xlDown       'Insertion
                .Rows(L).EntireRow.Hidden = False  'Rendre visible la ligne insérée
            End With
 
 
    Application.CutCopyMode = False
End Sub

Merci d'avance pour votre aide