Créer un macro qui copie la dernière ligne non vide et autre.

Bonjour,
j'ai commencé à créer des macros, donc il faut m'expliquer avec des mots simples.

j'ai créé un tableau croisé dynamique à partir d'un tableau qui contient des informations sur 5000 lignes et 8 colonnes environs. Donc le tableau croisé dynamique m'est très utile. Il est sur une feuille nommé TCD.

Après j'ai créé une autre feuille (nommé Modèle).
Sur cette feuille, j'ai créé une formule pour copier certaines informations du tableau croisé dynamique. La formule est copié aux lignes appropriés et aux colonnes appropriés.
Voici un exemple de la formule: =CONCATENER(TCD!C37)

Ensuite, j'ai créer un macro (situé en bas de cette page) me permettant de copier la feuille modèle et de nommé mon onglet selon la ligne I6 de ma feuille.

Enfin, Je copie et je fait un collage spécial avec valeurs et formats des nombres.

VOICI MON PROBLÈME - Dans mon macro je veux inclure ceci: d'aller chercher la dernière ligne non vide qui est situé par exemple dans la colonne D entre la ligne 13 et 39 pour le copié sur la ligne O13.

Mon autre problème est que lorsque il y a des informations sur certaines lignes de la colonne D, les colonnes suivante à coté de ces lignes me cache une partie de ces informations. En passant, les lignes des autres colonnes sont remplis sauf lorsque la colonne D à des informations.


ex: D E F ...
1 liste po...
2 Arbre soleil
3 fleur eau
4 animaux herbe

Les mots "liste pour nature" n'est pas toute visible à cause des colonnes E, F.


-Que dois-je rajouté à mon macro pour régler ces deux problèmes. Merci d'avance de m'aider.

En passant, j'ai excel pour mac. Je ne sais pas si ça change quelque chose

Voici mon macro:

Sheets("Modèle").Select
Sheets("Modèle").Copy Before:=Sheets(1)
Sheets(1).Name = Range("I6")
Range("D4:T150").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Range("E14:T150").Select
ActiveWindow.SmallScroll Down:=-164
Range("I18").Select
Range("E14:E150").Select
Application.CutCopyMode = False
Selection.TextToColumns Destination:=Range("E14"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1)
Range("P14:P150").Select
Selection.TextToColumns Destination:=Range("P14"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1)
Range("T24").Select
End Sub