problème macro recherche puis copie

[choouux]

Bonjour à tous

Voici mon problème

Sub incrémente() 'fonction d'incrément
Dim Increm
Dim valeur
Dim i As Integer

i = ActiveSheet.Range("L65536").End(xlUp).Row + 1
Increm = Format(Right(Range("L" & i - 1), 3) * 1 + 1, "000")
Range("L" & i).Value = "PROV-" & Format(Date, "yy") & "-" & Increm
insertion ' appelle la fonction d'insertion d'une nouvelle ligne

End Sub


Sub insertion()
'insertion d'une ligne et remise en forme automatique
Rows("4:4").Select
Selection.Insert Shift:=xlDown
Rows("5:5").Select
Selection.Copy
Rows("4:4").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub

J'ai une fonction qui incrémente un numéro de document (PROV-aa-001; PROV-aa-002 etc...)


Cette fonction se met dans la colonne L a partir de ligne 7

Je souhaite renvoyer la dernière valeur de la colonne dans la cellule A4. En insérant automatiquement une ligne en row 4 a chaque clic du bouton.
Le but étant d'avoir une gestion des document en voyant les plus récent en haut du tableau

Mon problème c'est que je n'arrive pas a rechercher et à copier la derniere valeur

Un autre problème qui se pose c'est que je veux que le numéro qui a était copier avant par exemple PROV-aa-001 soit conservé donc déplacer tout seul en row 5 (grace à l'insertion de laligne)