Private Sub subandsave_click()
Dim DLig As Long
DLig = (ThisWorkbook.Sheets("BDDV").Cells(65536, Colonne).End(xlUp).Row)
ThisWorkbook.Sheets("BDDV").Cells(DLig + 1, Colonne).Value = Nversion.Value
Chemin = "C:\dossier\blabla"
ActiveWorkbook.SaveAs Filename:=Chemin & "\" & "version" & ".xlsm"
End Sub