Optimalisation d'un code

Bonjour,

Le code ci-dessous fonctionne, mais je pense qu'il y a moyen de le simplifier. Quelqu'un pourrait il m'aider ?

Sub AJOUT_LIGNE() 'ajout d'une ligne dans une base de données

Dim ligneactu As Integer
Dim colactua As Integer

ligneactu = ActiveCell.Row
colactu = ActiveCell.Column

ActiveCell.Offset(1, 0).Select 'descendre d'une ligne
ActiveCell.EntireRow.Select 'sélectionnr la ligne entière
Selection.EntireRow.Insert a 'insérer une ligne
ActiveCell.Offset(1, 0).Select 'descendre d'une ligne
Selection.EntireRow.Copy 'copier la ligne (qui contient des formules)
ActiveCell.Offset(-1, 0).Select 'remonter d'une ligne"
ActiveSheet.Paste 'coller la ligne
ActiveCell.Offset(-1, 0).Select 'retour au point de départ
Application.CutCopyMode = False 'effacement des pointillés de copie

End Sub

Merci d'avance

Philippe

Salut,

Un premier essai de simplification.

Sub AJOUT_LIGNE() 'ajout d'une ligne dans une base de données

    Rows(ActiveCell.Row).Copy
    Rows(ActiveCell.Row).Insert Shift:=xlDown
    Range("B" & ActiveCell.Row & ":D" & ActiveCell.Row).ClearContents
    Application.CutCopyMode = False

End Sub

Un fichier joint aurait été apprécié.

Cordiales salutations.

Bonjour,

Je pense même qu'avec le fichier, certains pourraient mieux modifier le code en comprenant le contexte. Et avec un tableau structuré, il y aurait même la possibilité de se passer du code...

Cdlt,

Merci à tous pour vos réponses !

Philippe