Sheets(Sheets.Count).Select
pardon c'est vrai que c'est pas trés trés clair.jmps à dit:Arf !
Plus ça va, moins je comprends...
=INDEX(LIRE.CLASSEUR(1);1;LIRE.CLASSEUR(4))
=SI(ESTNA(EQUIV(FOURNISSEUR!A4;INDIRECT("'"&gulibert&"'!A:A");0));"";NB.SI(INDIRECT("'"&gulibert&"'!A:A");FOURNISSEUR!A4))