Stocker l'emplacement d'une erreur

Bonjour et merci à ceux qui me liront !

J'ai fais un petit code :

Sub maMacro()

Dim a As Range
On Error GoTo 1

'code susceptible de générer des erreurs :
Set a = a.taille 'ERREUR !
Exit Sub

1 EcrireJournalErreur (err)
err.Clear
End Sub

Sub EcrireJournalErreur(NumErr)

Dim Fs As Object, a As Object
Dim fichier As String, chemin As String
Set Fs = CreateObject("Scripting.FileSystemObject")

chemin = ThisWorkbook.Path
fichier = "\DataBase\Gestion des erreurs\logErreur.txt"

Set a = Fs.OpenTextFile(chemin & fichier, 8)
a.WriteLine ("Date :" & Now & " - Erreur : " & NumErr & " " & err.Description)
a.Close
End Sub

qui répertorie dans un fichier texte les erreurs rencontrées (ici celle de la macro "maMacro"), qui donne : Date :18/08/2020 09:51:35 - Erreur : 91 Variable objet ou variable de bloc With non définie dans le fichier texte.

Cependant, j'aimerai qu'il y ai aussi la référence de l'emplacement de l'erreur, car ici je suis dans l'impossibilité de retrouver quelle ligne de code a donné une erreur (surtout si j'ai plusieurs macros qui appelle "ecriturejournalerreur".

Avez vous une idée de quoi ajouter pour que ce soit encore plus précis ?

Je vous remercie