Copier coller d'une cellule sous conditions d'une autre cellule

Salut à tous,

J'aimerais savoir s'il est possible sous VBA de copier coller les informations de ma cellule P2 si H2 = , et cela à chaque fois que ces informations ce trouve sur la colonne H vers la colonne K, puis supprimer la colonne P une fois que le fichier a été traité.Le problème étant qu'il est possible que la colonne K contienne des informations qu'il ne faut pas retirer. Exemple : En colonne H il peut y avoir le mot "Regle" et colonne K le nombre "145". Dans ce cas il faut que les informations restent les mêmes. De plus il faudrait supprimer la colonne P si possible une fois le fichier traité.

Mon fichier ci joins. Pièce jointe 612981

Merci énormément de votre aide. Je compte sur vous !