Bonjour à tous

Il y a quelques années je me suis créé un fichier de création de BDD fictive.
Je viens de le ressortir du placard et je découvre qu'avec Excel 2016, j'ai 2 commandes qui ne fonctionnent pas comme elles devraient.
Create_bdd.xlsm

Voici les 2 commandes qui ne fonctionnent plus :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
Case Is = "n° et rue"
            Cells(1, z).Select
            ActiveCell.Offset(1, 0).Select
            ActiveCell.FormulaR1C1 = "=CONCAT(RANDBETWEEN(1," & NumMaxRue & "),"", "",VLOOKUP(RANDBETWEEN(1," & NbrRue & "),Tableau_Rues,2,FALSE))"
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Case Is = "E-Mail"
            Cells(1, z).Select
            ActiveCell.Offset(1, 0).Select
            If UserForm1.OptionButton5.Value = True Then
                ActiveCell.FormulaR1C1 = "=Lower(CONCAT([@Nom],""."",[@Prénom],""@fakemail.fr""))"
                Else
                ActiveCell.FormulaR1C1 = "=Lower(CONCAT(LEFT([@[Nom et Prénom]],SEARCH("" "",[@[Nom et Prénom]],1)),""."",RIGHT([@[Nom et Prénom]],LEN([@[Nom et Prénom]])-SEARCH("" "",[@[Nom et Prénom]],1)),""@fakemail.fr""))"
            End If
Au lieu de m'afficher le résultat, elles m'affichent toutes les 2 #NOM?.

Je n'arrive pas trouver le problème.

Si quelqu'un peut m'aider, je l'en remercie!