Salut,
Voila une macro qui devrais faire l'affaire (un peu de mise en page reste a faire modifie les colonnes ou rangs en fonction des besoins)
Sub recette()
rang = 1
Sheets(2).Range("a:a").ClearContents
With Sheets(1)
For i = 1 To .Range("a1").End(xlDown).Row
If Format(.Cells(i, 2), "dd/mm/yy") = Format(Sheets(2).Cells(2, 5), "dd/mm/yy") Then
Sheets(2).Cells(rang, 1) = .Cells(i, 3)
somme = somme + .Cells(i, 3)
rang = rang + 1
End If
Next
Sheets(2).Cells(rang, 1) = somme
End With
End Sub
Ensuite creer un bouton pour execute la macro ou colle dans la feuille de calcul ceci :
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = Range("e2").Address Then recette
End Sub
si tu as des questions demande.