VBA-Si insertion ligne , 1ere cellule = A1

Bonjour,

Je bloque sur un code qui me permet dans une feuille, à chaque insertion de ligne que la première cellule soit égale à la cellule A1

Exemple: J'insert la ligne 12, je voudrais qu'automatiquement la cellule A12 soit égale à la cellule A1.

En pj, un bout de fichier.

Merci

koro

Bonjour

Voir ce code à mettre dans ThisWorkbook

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
   If InStr(1, "JanvierFévrierMarsAvrilMaiJuinJuilletAoûtSeptembreOctobreNovembreDécembre", Sh.Name) > 0 Then
      Rows(1).Copy
    Rows(Target.Row).Insert
    Cancel = True
    Application.CutCopyMode = False
  End If
End Sub

Attention j'ai modifié le mois Février (accent )

Merci Banzai pour ta réponse mais ce n'est pas exactement cela que je cherche, avec ta solution il faut double cliquer pour insérer.

En fait, je souhaiterais à la place du double click, passer par la façon normale d'ajout de ligne: click droit > insertion !

koro