Filtrage VBA

Sub Macro1()
'ligne apartir de laquelle on va ecrire
ligne = 3
'declaration de la collection
Dim coll As Collection
Set coll = New Collection
'Mise sous forme de collection de la liste des differentes dates
For n = 3 To Range("B65536").End(xlUp).Row
On Error Resume Next
  If Range("B" & n) <> "" Then coll.Add Range("B" & n), CStr(Range("B" & n))
On Error GoTo 0
Next n
'pour chaque date de la collection
For m = 1 To coll.Count
'pour chaque ligne en colonne B
 For n = 3 To Range("B65536").End(xlUp).Row
 'Si la date correspond a celle de la collection
 'et que la colonne C n'est pas vide
   If Range("B" & n) = coll(m) And Range("C" & n) <> "" Then
'on totalise les valeurs
     totx = totx + Range("C" & n)
'on totalise le carré des valeurs
     totx2 = totx2 + Range("C" & n) ^ 2
'on incremente le nombre de valeurs
     nn = nn + 1
   End If
 Next n
 'S'il y a plus d'une valeur (pour eviter la division par 0
If nn > 1 Then
'on calcule l'ecart type ECARTTYPEP (voir l'aide de cette fonction)
 ec = ((nn * totx2 - totx ^ 2) / (nn ^ 2)) ^ 0.5
 'on ecrit la date en colonne 5 ,l'ecart en colonne 6
 Cells(ligne, 5) = coll(m)
 Cells(ligne, 6) = ec
 'on remet les variables de calcul a 0
 totx = 0
 totx2 = 0
 nn = 0
 'on incremente la ligne d'ecriture
 ligne = ligne + 1
End If
Next m
End Sub

N'hesite pas a revenir si quelque chose t'echappe encore