XL 2016 Macro pour indiquer différents textes dans différentes cellules

Bonjour le fil,
Un essai.

Salut King

Merci pour ton aide

Je crée un organigramme pour plusieurs équipes.
Les données vont servir pour différentes statistiques (âge moyen, nb. de femme et d'homme, ...)
J'ai besoin d'effacer les données indépendamment des autres.

J'ai trouvé une formule intéressante mais seulement pour une cellule:

Private Sub Worksheet_Activate()
If Range("R17").Value = "" Then Range("R17").Value = "Nom"
End Sub

'Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$R$17" Then
If Range("R17").Value = "" Then Range("R17").Value = "Nom"
End If
End Sub

J'ai besoin d'étendre cette formule aux cellules du même type (Nom).
De même pour toutes les autres cellules de même type (Prénom, téléphone, ...)

J'ai joint un autre fichier qui représente mieux le fichier final