Macro qui utilise la valeur de la cellule active pr mettre à jour une autre cell

Bonjour,
Je crois m'adresser aux bonnes personnes pour mon problème Excel, alors MERCI à l'avance.

J'ai un onglet "Tableau de bord" qui contient le sommaire de plusieurs projets. Les #projets sont respectivement dans les cellules A8, A18, A28, ...

J'ai un autre onglet "Config" dans lequel je colle dans la cellule AC1, la valeur de la cellule du projet consulté, et j'y ajoute le chemin d'accès, le tout est mis dans la cellule AC2.
La macro utilise AC2 sans problème, elle ouvre le fichier de AC1.

Mon problème:
Pour consulter le détail d'un projet particulier, j'aimerais cliquer la cellule d'un projet particulier, et démarrer la macro qui ouvre ce fichier. Cependant, elle me donne mon message d'erreur prévu au cas où je cliquerais une cellule qui n'a pas de #projet, et la macro ouvre alors le premier projet.
Je crois que ma déclaration pour lire la cellule active est erronée, mais je ne sais pas comment la corriger.

Voici le code qui me donne le message d'erreur "Aucun fichier..." et qui ouvre alors le premier projet :
----------------------
Private Sub Contenu_Click(ProjetConsulté)
'Déterminer le projet à consulter de l'onglet Tableau de bord, et l'insérer dans l'onglet config
'
'Selon la position du curseur:
Sheets("Tableau de bord").Select
ActiveCell.Select

If ActiveCell.Address = "$a$8" Then
range("A8").Select
ElseIf ActiveCell.Address = "$a$18" Then
range("A18").Select
ElseIf ActiveCell.Address = "$a$28" Then
range("A28").Select
ElseIf ActiveCell.Address = "$a$38" Then
range("A38").Select
ElseIf ActiveCell.Address = "$a$48" Then
range("A48").Select
Else
MsgBox "Aucun fichier à consulter pour cette cellule. Va afficher le premier par défaut."
range("A8").Select
End If

Selection.Copy
Sheets("config").Select
range("AC1").Select
ActiveSheet.Paste

End Sub
---------------------

Pouvez-vous m'aider?
Cordialement,
JDA13