Aficher une feuille masquer

Bonjour forum
j'ai enregistrer un classeur type ou j'ai mis ttes mes données et dans lequel j'ai masqué des feuilles pour une question de sécurité. à chaque feuille a été nommée le problème c'est que je n'arrive plus à afficher les feuilles masquées par rapport au nom que je leurs ai affecté
voila mon code
Sub fiche_module()

Dim module As Variant
Dim i As Integer
Dim var As Variant
Dim mafeuille As Variant
Worksheets("data").Select
module = Range("AA33").Value

For i = 2 To 11
If module = Range("DO2").Offset(i).Value Then
var = Range("DO1").Offset(i).Value
Workbooks.Open Filename:="P:\devis\fiches.xls"
Worksheets("feuil1").Select
Range("A1").Value = var
mafeuille = var
Worksheets("feuil1").Select
Sheets("mafeuille").Visible = True

End If
Next i

End Sub