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