Dim cellule As Range Dim cpt As Integer cellule = Range("A1") cpt = 0 While Not IsEmpty(cellule)If Right$(cellule.Value, 4) "2004" Then cpt cpt + 1 Set cellule = cellule.Offset(1,0) Wend <table border=0 cellspacing=0 cellpadding=4 bgcolor=#E0E0E0><tr><td class=code> ou mieux encore : <table border=0 cellspacing=0 cellpadding=4 bgcolor=#E0E0E0><tr><td class=code> Dim cellule As Range Dim cpt As Integer Set cellule = Range("a1") cpt = 0 While Not IsEmpty(cellule)If Format(cellule.Value, "yyyy") "2002" Then cpt cpt + 1 Set cellule = cellule.Offset(1, 0) Wend MsgBox cpt