ajout d'une cellule si derniére pleine

Bonjour,
J’ai un problème sur ma création d’une petite base de données en Excel. Je m’explique j’ai une feuille nommé (Feuil-du-jour) ou j’ai créé un bouton nommé (ajouts de crédits) lié à une macro qui a pour action de rajouté une donnée venant de la cellule N37 et copier dans la cellule D9 ou une relation ce fait en C4.
Mon soucis est que je voudrais que si la cellule C9 il y a quelque chose alors cela va copier en D10 et ainsi de-suite si il y a quelque chose en C10 alors la nouvel valeur va à D11 etc...
J’espère avoir réussie à être assez claire dans mes explications et vous remercie d’avance de m’aider.
Je joins une copie de la macro en question, ainsi que le fichier.

Ce lien n'existe plus


Sub ajout_credit()
'
' ajout_credit Macro
'

'
Range("N37").Select
Selection.Copy
Range("D10").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=-6
Range("A4:AG4").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("BD").Select
Range("A" & [param_ligne] + 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Feuil-du-jour").Select
Range("D10").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("N9").Select
Selection.ClearContents
Range("N13").Select
Selection.ClearContents
Range("N17").Select
Selection.ClearContents
Range("N21").Select
Selection.ClearContents
Range("N25").Select
Selection.ClearContents
Range("N29").Select
Selection.ClearContents
Range("N33").Select
Selection.ClearContents
Range("I17").Select
End Sub