Copier ligne d'un tableau sur un autre si condition

Merci d'avoir répondu si vite !!
j'ai essayé de comprendre, mais mon problème est que je suis presque ignorante dans la programmation VBA . Par contre elles sont très simples je l'admet par rapport à la macro que j'ai "créée" en exécutant pas à pas ce que je voulais faire-voir plus bas!!
Je ne vais donc pas chercher à comprendre les instructions mais je souhaite quand même pouvoir les utiliser :
1ère : lifin = Cells.Find("*", , , , xlByRows, xlPrevious).Row

2ème : If Range("A9")="oui" Then
Call macrocopie
End If
comment et où dois-je les copier? dans une cellule? en créant une autre macro?
(Idéalement je voudrais ajouter un bouton sur lequel cliquer pour exécuter la macro, mais on pourra voir ça après)

Sinon autre piste : voici le VBA de la macro très complexe qui s'affiche quand je regarde ce qu'il y a dedans et qui fonctionne partiellement (J'ai enregistré cette macro en exécutant toutes les taches une à une- je me place sur la cellule-sélectionne ligne - la copie vers le tableau de la feuille" rebut " et je supprime le contenue de la ligne copiée dans la feuille de départ"base triée par nom")

REM ***** BASIC *****

sub copier_ligne_dans_rebut_effacer_nom
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$R$11"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())

rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "ToPoint"
args2(0).Value = "$A$11:$Q$11"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args2())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())

rem ----------------------------------------------------------------------
dim args4(0) as new com.sun.star.beans.PropertyValue
args4(0).Name = "Nr"
args4(0).Value = 3

dispatcher.executeDispatch(document, ".uno:JumpToTable", "", 0, args4())

rem ----------------------------------------------------------------------
dim args5(0) as new com.sun.star.beans.PropertyValue
args5(0).Name = "ToPoint"
args5(0).Value = "$A$6"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args5())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Paste", "", 0, Array())

rem ----------------------------------------------------------------------
dim args7(0) as new com.sun.star.beans.PropertyValue
args7(0).Name = "Nr"
args7(0).Value = 8

dispatcher.executeDispatch(document, ".uno:JumpToTable", "", 0, args7())

rem ----------------------------------------------------------------------
dim args8(0) as new com.sun.star.beans.PropertyValue
args8(0).Name = "ToPoint"
args8(0).Value = "$J$11:$Q$11"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args8())

rem ----------------------------------------------------------------------
rem dispatcher.executeDispatch(document, ".uno:DeleteCell", "", 0, Array())

rem ----------------------------------------------------------------------
dim args10(0) as new com.sun.star.beans.PropertyValue
args10(0).Name = "Flags"
args10(0).Value = "SVDT"

dispatcher.executeDispatch(document, ".uno:Delete", "", 0, args10())

end sub

Quelle manipulation sur l'enregistrement de la macro pas à pas dois je apporter ou quelle modification de cette macro dois je faire pour que la ligne copiée se place à la fin du tableau(en dernière ligne)et non pas toujours sur la même ligne et que ce soit la bonne ligne( qui contient le "oui") qui soit copiée?

Désolée pour la complexité de mes questions, j'espère que je suis quand même assez claire et que qqn pourra m'aider.
Un grand grand Merci par avance.
NB : je peux donner mon pb concret par mail si besoin pour être plus clair ?

Bonsoir,
En effet avec Excel cela fonctionne; J'ai testé à mon travail !!
Par contre je ne souhaite pas effacer toute la ligne mais seulement quelques cellules.
Quelle modification apporter à la macro?
NB :Pour le bouton : nickel j'ai compris!
Sinon, je souhaite exécuter la macro automatiquement et non pas à partir du bouton : cad dès qu'une cellule de la lige = texte1 ou texte2 ou texte3 je veux exécuter la cacro?
Est-ce l'instruction écrite dans le premier message qu'il faut utiliser ? en la modifiant pour mettre texte1 ou texte2 ou texte3 à la place de "oui", comment formuler le "ou"?
If Range("A9")="oui" Then
Call macrocopie
End If
Une fois l'instruction écrite : Est-ce qu'il faut mettre ces instructions dans une macro ? ou écrire l'instruction dans une cellule (ce n'est pas clair pour moi)!!
Après je pense arrêter de t'embêter, car je deviens soulante ?!!
Merci encore pour ton aide.

Voilà mon fichier

https://www.cjoint.com/c/FKerHYrrYB0
J'espère que tu peux le lire...
A bientôt

petite précision
= texte 1, texte 2, texte 3 cad motifs de rebut: décédé, parti sans laisser d'adresse, réexpédition définitive

Une autre possibilité
http://www.cjoint.com/c/FKeufb6ehnn

Encore merci pour ton aide, je vais tester les 2 fichiers au bureau demain avec Excel et te tiens au courant.
A très bientôt
Merci

Ca fonctionne très bien. Un grand merci pour ton aide.
C'est très gentil d'aider les personnes qui en ont besoin et qui sont un peu ignorantes en la matière!!
Je ne vais pas abuser et vais essayer d'avancer toute seule en m'inspirant des solutions à mes premiers problèmes.
A une prochaine fois peut-être si je suis vraiment coincée dans mon projet.

Je ne vois pas de quoi tu parles :(

C'est plus clair :)
Je testerai lundi.
Encore Merci

Bonsoir,
En effet c'est plus clair et ça fonctionne très bien.
Reste à appliquer à mon cas professionnel, j'espère y arriver ...
Il me restera encore du chemin après car je veux mettre en place beaucoup d'autres choses..
Encore merci pour tout , et surtout pour m'avoir lancer mon projet.