For Each cel In p.SpecialCells(xlCellTypeVisible) 'boucle 2 : sur toutes les cellules visibles de la plage pl
If cel.Value = temp(x) Then z = z + 1 'si la date correspond, incrémente la variable z
Next cel 'prochaine cellule de la boucle 2
tpl(1, y) = z 'récupère le nombre de fois que la date apparaît dans la plage pl visible, dans la ligne y, colonne 1 du tableau à deux dimensions tpl