Encore merci grace a toi j'ai trouver la solution j'ai modifier la formule:
Sub NumeroFacture()
'Efface la facture et met a jours le numéro de facture
Sheets("Factures").Range("A12").Select
Range("A12:A36").ClearContents
Sheets("Factures").Range("F12").Select
Range("F12:F36").ClearContents
Sheets("Factures").Range("E3").ClearContents
Sheets("Factures").Range("G1").Value = Sheets("Factures").Range("G1").Value + 1
End Sub
pour palier a la cellule fusionner en bas ou j'ai écris:
"En cas de retard de paiement, indemnité forfaitaire légale pour frais de recouvrement : 40,00 €"
qui prend toute la ligne de la page je suis obliger de stopper la colonne A a 36 aussi vraiment merci de ton aide.