Excel appliquer une macro à partir d'une cell

Bonjour à tous,

Je consulte comment ca marche depuis plus d'un an et je vous remercie pour tous ce que j'y ai déjà apris.

Dans le cadre de mon activité d'architecte, je créée un fichier excel me permettant de gérer les payements fait par mes clients à des fournisseurs. Il y a donc plusieurs fournisseurs (maçon, charpentier, etc ...) qui se font payer à différents moments du chantier par le client.
Mon fichier excel comprends deux types de feuille,
1. la première feuille (feuille de payement générale) reprends tous les payements fait les un après les autres, avec un identifiant unique qui s'autoincrémente pour moi et mon client nous permettant de voir ce que nous avons payé.
2. la ou les autre(s) feuille(s) (feuille entreprise) reprends les mêmes informations de payement mais dans un tableau propre à l'entreprise en question.

Je cherche donc à créer deux macro.

La première me permettrait en me positionnant sur la permière cellule de la première ligne vide de mon tableau (ma feuille) entreprise, de
- rechercher le dernier identifiant dans mon tableau payement général et attribuer un nouveau numéro (+1) dans la colonne de l'identifiant sans que ce numéro n'évolue avec les autres payement que je ferai ultérieurement
- attribuer la date du jour sans que celle-ci ne change automatiquement

Voici ce que j'ai pu créer automatiquement ... :

Sub AJOUTIDETDATE()
'
' AJOUTIDETDATE Macro
' plageActive
' Touche de raccourci du clavier: Ctrl+Maj+D
'
ActiveCell.FormulaR1C1 = ""
Range("A178").Select
Selection.Copy
Range("B179").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("Projet").Select 'la date du jour est dans une autre feuille'
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Sheets:=19
Sheets("0").Select 'Ceci est la feuille de l'entreprise'
Range("C179").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

Le problème de cette macro c'est qu'elle prend systématiquement comme référence A178 une cellule que j'ai défini lors de l'enregistrement de cette dernière, hors je voudrais que ces ajouts automatiques se fassent à droite de la cellule où je positionne mon curseur. ou encore mieux mais pas nécessaire qu'il me fasse les ajouts de l'ID et de la date après la dernière ligne de payement.

La seconde macro est un petit peu plus compliquée.

Une fois les informations de payements remplies, dans la feuille entreprise, dont le montant, la date, les références du payement, etc ... je désire que ces informations "repeuple" mon tableau ou feuille de payement général.
Pour cette second macro, il faudrait à nouveau qu'elle soit liée à mon positionnement sur la ligne active ou cellule en question.
Lancer la macro me permettrait de recopier automatiquement, après la dernière ligne occupée de mon tableau des payements généraux, les valeurs concernées (ID, nom, corps de métier, montant, coordonnée bancaires) données présentes dans la feuilles de l'entreprise (afin de permettre à mon client de faire le payement).

Voilà, je vous remercie pour cette aide précieuse, je ne pense pas pouvoir m'en sortir, et suis au même stade depuis une bonne dizaine de jours.

Bonne soirée à tous.
Damien