Cellule de la ligne vide

Bonjour,

Voici une macro permettant de copier la ligne identique à celles dont la cellule est sélectionnée.

Sub insertionLigne()
    With ActiveCell
        .EntireRow.Insert xlShiftDown 'Insert une ligne au dessus
        .EntireRow.Copy ' Copie la ligne active
        With .Offset(-1).EntireRow 'Passe les formats et formules à la ligne insérée
            .PasteSpecial xlPasteFormats
            .PasteSpecial xlPasteFormulas
        End With
        Application.CutCopyMode = False
    End With
End Sub

Dans cette ligne se trouve des formules que je recopie mais il y a également, dans certaine cellule, des éléments qui varient comme la désignation (colonne G), le conditionnement (colonne B), le PA (colonne V).

J'aimerais que ces cellules B, G et V soient vide à la fin de l'exécution de la macro ...

Une petite idée ?

Merci à vous,

Loadlucas

Salut lodlucas,

à tester

Sub insertionLigne()
Dim x As Integer
    With ActiveCell
        .EntireRow.Insert xlShiftDown 'Insert une ligne au dessus
        .EntireRow.Copy ' Copie la ligne active
        With .Offset(-1).EntireRow 'Passe les formats et formules à la ligne insérée
            .PasteSpecial xlPasteFormats
            .PasteSpecial xlPasteFormulas
        End With
        x = ActiveCell.Row
        Range("B" & x & ":B" & x & ",G" & x & ":G" & x & ",V" & x & ":V" & x).ClearContents

        Application.CutCopyMode = False
    End With
End Sub

Bonjour,

un grand merci,

Loadlucas