Thanks a lot Mr. xladept for your help
I typed two dates : 1/1/2014 and 1/2/2014 and I got an error message 1004 at this line
 Do Until ws.Cells(i, 2) = SDate
But it works with some other dates
Another point I want unique values.. Is that possible?