XL 2013 vba pour copier lignes d'un tableau sur autre feuille suivant critère

bonjour
Je cherche depuis plusieurs jour, mais ne trouve pas la solution
J'ai un code qui fonctionne parfaitement bien pur un autre tableau mais qui pour le fichier joint ne fonctionne pas
toujours erreur "'indice n'appartient pas la sélection"
J'aimerais comprendre 'où vient mon erreur et la corriger afin que le code fonctionne
Je sais que cette a déjà été posée, mais je n'ai pas trouvé la solution
Je vous remercie tous d'avance pour votre aide
bonne journée