Sub Num_Facture()
Dim ws As Worksheet, ws2 As Worksheet, c As Range, sNoFacture As String
Set ws = Sheets("Facture de service")
Set ws2 = Sheets("numeros")
Set c = ws2.Range("A60000").End(xlUp).Offset(1, 0)
sNoFacture = Format(Date, "yyyymm") & Format(c.Row, "000")
ws.Range("D5") = sNoFacture
c = sNoFacture
c.Offset(0, 1) = ws.Range("A1")
End Sub