Sub BDD_M()
Dim DerLig As String
Dim i, j, Num As Integer
Num = InputBox("nombre de boîte ?")
DerLig = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To 16
ActiveSheet.Cells(DerLig + i, 18).Value = i
Next i
For j = 1 To Num
ActiveSheet.Cells(DerLig + 1, 17).Value = j
Range("Q" & DerLig + 1).Select
Selection.AutoFill Destination:=Range(Cells(DerLig + 1, 17), Cells(DerLig + 16, 17)), Type:=xlFillCopy
Next j
End Sub