Private Sub CommandButton1_Click()
Dim DerLig As Long 'Déclaration de variables
Dim Cel As Range 'idem
Application.ScreenUpdating = False 'masquage du raffraichissement de l'écran (gain de temps)
'on va travailler sur la feuille " Feuil2"
With Sheets("Feuil2")
'Pour chaque cellule de B2 à la dernière cellule remplie en B de la feuille 1
For Each Cel In Range("B2:B" & [B65000].End(xlUp).Row)
'Si la valeur de la cellule est "50"
If Cel.Value = 50 Then
'calcul de la première ligne vide de la feuille " Feuil2"
DerLig = .[B65000].End(xlUp).Row + 1
'on copie de la cellule Ax à Mx, x étant le numéro de ligne de Cel
'on copie dans la première cellule vide de la feuille " Feuil2" (.Cells(Derlig, 1))
Range(Cells(Cel.Row, 1), Cells(Cel.Row, 13)).Copy .Cells(DerLig, 1)
End If
'prochaine cellule
Next Cel
End With
End Sub