Bonsoir aquitain, Marco,
Une petite suggestion
Private Sub NumAuto()
Dim Compteur As Integer
Compteur = Range('A1').Value
Range('A1').Value = Compteur + 1
End Sub
Place un bouton sur ta feuille de devis (propriétés, décocher imprimer) et associe la macro à ce bouton clic droit : affecter une macro
Bon courange et bonne soirée.