Re : extraction presque top
Bonjour
modifie sub extract
Sheets("Saisies").Range("A3:F" & [A65000].End(xlUp).Row).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"a1:e2"), CopyToRange:=Range("a11"), Unique:=False
En fait tu disais dans ta macro de copier a-f dans a-e (impossible) on ne met pas 6 cases dans 5...
idem en longueur
tu disais: copy a3 à f(fin de fichier) sur a11 à f(fin de fichier)
la fin de fichier etant la même de a3 à a11 il y a 8lignes qui savent pas ou aller...
A+ François
PS: j'ai pas compris le probleme de date