Dim num_facture As Integer
num_facture = InputBox("Quel est le numéro de la facture dans votre facturier?", "N° de facture")
Do While Len(num_facture) = 0
MsgBox "Cette donnée est obligatoire"
num_facture = InputBox("Quel est le numéro de la facture dans votre facturier?", "N° de facture")
Loop
Range("c3").Value = num_facture
'calcul du numéro de facture
Range("C4").Select
ActiveCell.FormulaR1C1 = _
"=YEAR(RC[5])&""-""&MONTH(RC[5])&""/""&MID(R[-1]C,1,4)"
'calcul du numéro de facture
Range("C5").Select
ActiveCell.FormulaR1C1 = _
"=YEAR(R[-1]C[5])&""-""&MONTH(R[-1]C[5])&""/""&num_facture"