Sub Macro1()
Dim nom As Name 'déclare la variable nom
For Each nom In Names 'boucle sur toutes les plages nommées
'remplacement du nom de la plage nommée dans les cellules
Cells.SpecialCells(xlCellTypeFormulas).Replace What:=nom.Name, Replacement:=nom.Name & "_FR", LookAt:=xlPart _
, SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
'remplacement des plages nommées
nom.Name = nom.Name & "_FR" 'modifie le nom de la plage nommée
Next nom 'prochaine plage nommée de la boucle
End Sub