J'ai trouvé une solution après le conseil de Paf (encore merci)
C'est pas très beau comme code mais cela répond (en partie) à ce que je veux
Sub BDD_M()
Dim DerLig As Long
Dim i, j, Num As Integer
Num = InputBox("nombre de boîte ?")
DerLig = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row...