Private Sub CommandButton1_Click()
With Sheets("Archives commandes")
tablo = .[B4].CurrentRegion 'on recopie le tableau d'archive dans un tableau en mémoire
For lig = 1 To UBound(tablo) 'pour chaque ligne de ce tableau
'si num commande et désignation sont identiques aux champs du UserForm,
'numéro de ligne dans la feuille = numéro de ligne dans le tableau + 2 lignes vides
If tablo(lig, 1) = Val(TextBox1) And tablo(lig, 2) = Label1 Then ligne = lig + 2: Exit For
Next lig
.Cells(ligne, 10) = Val(TextBox2) 'à adapter, pour recopier les autres infos (dates, ...)
End With
End Sub