Private Sub B_recup_Click()
Application.ScreenUpdating = False
Set f = Sheets("Recap")
f.[A2:F1000].Delete xlUp
With Union(Rng.Rows(0), Rng)
.AutoFilter 1, ComboBox1 'filtre automatique
.Copy f.[A1] 'copier-coller
.AutoFilter
End With
'Somme colonne 3
f.[C65000].End(xlUp).Offset(2) = Application.Sum(Application.Index(ListBox1.List, , 3))
End Sub