Re le forum, slaut Hellboy,
voici donc le code...
Sub ref_month_janv5()
'garde le mois voulu janvier 2005
For x = 100 To 3 Step -1
If Format(CStr(cells(x, 1).Value), 'mmm-yy') <> 'janv-05' Then
cells(x, 1).EntireRow.Select
Selection.Delete Shift:=xlUp
End If
Next x
'calcul du nb ATO
Range('AE2').Select
Range('AE2').End(xlDown).Offset(1, 0).Value = '=SUM(AE2:' & Range('AE2').End(xlDown).Address & ')'
Range(ActiveCell, ActiveCell.End(xlToLeft)).Select
Selection.Copy
Worksheets('2005').Select
Range('A1').Offset(2, 3).Select
ActiveSheet.Paste
End Sub