VBA pour nommer les onglets

Bonsoir à Tous,

j'ai un fichier de plusieurs feuilles, la macro ci- dessous nomme les onglets selon les noms qui se trouvent dans dans les cellules C1 des feuilles du classeur (le nombre des feuilles est variable), mon souhait ce que vous m'aidiez à améliorer cette macro pour qu 'elle me transforme le nom qui se trouve en C1 qui a comme forme 111 - aaaaaaa bbbbbb (le nombre 111 peut contenir de 1 à 3 chiffres, le nombre des caractères de aaaaaaaa et bbbbbb est variable), en forme qui supprime les vides et remplace le tiret par un point, la forme generée par la macro doit être de la forme 111.aaaaaaa.bbbbbb

le nom transformé est celui qui deviendra le titre de l'onglet.

merci d'avance pour votre aide.

Sub Nom_Onglets()

Dim Feuille As Worksheet

For Each Feuille In Worksheets

Feuille.Name = Feuille.Range("C1").Value

Next Feuille

End Sub

Bonsoir

A essayer

Sub Nom_Onglets()
Dim Feuille As Worksheet

  For Each Feuille In Worksheets
    Feuille.Name = Replace(Replace(Feuille.Range("C1").Value, " - ", "."), " ", ".")
  Next Feuille
End Sub

Merci beaucoup