Sub NumeroFacture()
'Efface la facture et met a jours le numéro de facture
Sheets("Factures").Range("A12").Select
Range(Selection, Selection.End(xlDown)).ClearContents
Sheets("Factures").Range("F12").Select
Range(Selection, Selection.End(xlDown)).ClearContents
Sheets("Factures").Range("E3").ClearContents
Sheets("Factures").Range("G1").Value = Sheets("Factures").Range("G1").Value + 1
Sheets("Factures").Unprotect "1234"
' votre code
Sheets("Factures").Protect "1234"
End Sub
je l'ai intégrer comme sa je sais pas si il est a sa place, mais quand je protège ma feuille avec le code 1234 le bouton ne fonctionne toujours pas.