re
mon pc est moins puissant que cela donc un peu surpris, tu testes bien avec le fichier Pingbdv14 (pas d'autres macros qui se déclencheraient)?
sinon l'ideal est de ne faire qu'une feuille (il faut tenir compte du nb de matches max par joueur
imaginons que le pire qui puisse arriver soit une poule de 6 donc 5 matches par joueur
10 joueurs avec résultat à récupérer
ta feuille devient
ligne 2 joueur
ligne 4 date
lignes 5 à 9 résultats
ligne 10 libre
ligne 11 joueur suivant....
les variables deviennent
nbjoueurs = 10
nbrencontres = 5
offsetjoueur = 9
de toute façon , si la feuille est bien remplie, la macro 'saute' si pas de joueur (lignes 2,11..)
If Not InStr(1, Sheets(WSBase).Range....
et si pas de rencontre (par exemple une journée avec 3 rencontres
If Not Range('I' & (4 + offsetjoueur....
il suffit de bien remplir ta feuille, c'est tout