Bonjour
une proposition :
Private Sub CommandButton1_Click()
ActiveCell = Format(Now, "yyyymm") & Format(ActiveCell.Offset(0, -1), "00")
End Sub
Tu te places sur la cellule ou tu veux mettre ton numéro de facture et tu appuis sur le bouton.
Le dernier numéro, est trouvé en allant chercher la valeur de la cellule ce trouvant à droite de la cellule sélectionnée.
Salut
Hervé