Sheets("Machin").Visible = False' pour masquer
Sheets("Machin").Visible = True 'pour afficher'
Sub Ouvrir()
Dim fichier As String, nom As String
fichier = Feuil12.Range("A1")
nom = Feuil12.Range("A2")
On Error Resume Next
Workbooks(nom).Activate
If Err.Number <> 0 Then
Workbooks.Open fichier
End If
Sheets("Machin").Activate
End Sub