Private Sub UserForm_Initialize()
Dim NumVGP, vAnConf As Integer, Inc As Integer
With Sheets("BD_VGP").Range("A" & Rows.Count).End(xlUp)
NumVGP = Split(.Value & "/", "/")
End With
If Val(NumVGP(1)) = Year(Date) Then Inc = Val(NumVGP(0)) + 1 Else Inc = 1
vAnConf = Year(Date)
Me.Label_N_VGP = Format(Inc, "000") & " / " & vAnConf
End Sub