[365] Macro ouvrir une feuille créée par une autre macro

Option Explicit
'déclaration des variables
Dim Ws As Worksheet
Dim nom As String 'nom du client
Dim ligne As Long
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("E6:E12")) Is Nothing Then ' adapter la plage
On Error Resume Next
ligne = Target.Row 'ligne cliquée
nom = Range("A" & ligne).Value 'nom du client
creer ' crée le Formulaire au nom du client
End If
If Not Intersect(Target, Range("F6:F12")) Is Nothing Then ' adapter la plage
On Error Resume Next
If Target.Value = "" Then Exit Sub
ligne = Target.Row 'ligne cliquée
nom = Range("A" & ligne).Value 'nom du client
 Sheets(nom).Activate 'active la feuille au nom du client
End If
End Sub
Private Sub creer()
'Boucle sur les feuilles du classeur.
    For Each Ws In ThisWorkbook.Worksheets
     If Ws.Name = nom Then 'même nom
     MsgBox "Une feuille existe dèjà à ce nom!", vbExclamation, "Ajout feuille"
Exit Sub
     End If
    Next Ws
'copie feuille modèle
    Sheets("Formulaire").Copy After:=Sheets(Sheets.Count) 'ajoute en dernier
  'renommer la feuille modèle(formulaire) avec le nouveau nom
  Sheets(Sheets.Count).Name = nom
 Sheets(nom).Range("C4").Value = nom 'mettre le nom du client dans le formulaire
 Sheets(nom).Range("F3").Value = Sheets("FLOWA").Range("D" & ligne).Value 'mettre la date dans le formulaire
 Sheets("FLOWA").Range("F" & ligne).Value = nom 'mettre le nom du client pour ouvrir sa feuille
End Sub
Sub supprimer() 'supprime toutes les feuilles sauf "FLOWA" et "Formulaire"
'Boucle sur les feuilles du classeur.
    For Each Ws In ThisWorkbook.Worksheets
     If Ws.Name <> "FLOWA" And Ws.Name <> "Formulaire" Then
  Application.DisplayAlerts = False 'evite message d'alerte
  Ws.Delete
     Application.DisplayAlerts = True
     End If
    Next Ws
End Sub