Private Sub btnnouveau_Click()
[B]ThisWorkbook.Worksheets("Devis").Select '--> à remplacer par Ws
ActiveSheet.Unprotect
Range("A4").Value = Range("A4") + 1
TbxNdv = Range("A4")
[B]ThisWorkbook.Worksheets("Devis").Select '--> à remplacer par Ws
ActiveSheet.Protect
End Sub