Option Explicit
Private nf As Long
Private derligne As Long
Private Sub UserForm_Initialize()
derligne = Sheets("listing generalbis").Range("A65535").End(xlUp).Row + 1
nf = CLng(Sheets("listing generalbis").Cells(derligne - 1, 1).Value) + 1
Label39.Caption = nf
End Sub