Simplifier une fonction VBA

Bonjour,

Je viens de faire ma toute première macro (qui fonctionne) mais je suis sûre qu'elle peut être faite différemment (plus courte surtout)
J'ai un classeur dans lequel il y a plusieurs feuilles.
J'ai des feuilles nommées "RA 1","RA 2"....."RA 30" et une feuille nommée "ALEAS" qui présentent le même tableau et dans lesquels je dois effectuer une série d'actions (la même série chacune de ces feuilles)
J'ai aussi d'autres feuilles avec des noms totalement différent dans lesquelles je ne veux rien faire.
L'idée est que, via deux boutons (macros) la mise en forme de chacune de ces feuilles change (colonnes masquées/démasquées grâce à des poignées déjà présentes dans les tableaux)
J'ai ajouté une petite commande de sélection de cellule après ouverture/fermeture des colonnes pour que le tableau se remette au début pour une meilleure lisibilité
Voici ma première macro qui fonctionne :
Sub Ouverture_Exe_Suivant()

Sheets("RA 1").Select
ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=1
Columns("AI:AX").Select
Selection.EntireColumn.Hidden = False
Range("O13").Select
Sheets("RA 2").Select
ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=1
Columns("AI:AX").Select
Selection.EntireColumn.Hidden = False
Range("O13").Select
[...] (je fais plus court car je vous laisse imaginer la longueur du texte)
Sheets("RA 30").Select
ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=1
Columns("AI:AX").Select
Selection.EntireColumn.Hidden = False
Range("O13").Select
Sheets("ALEAS").Select
ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=1
Columns("AI:AX").Select
Selection.EntireColumn.Hidden = False
Range("O13").Select

End Sub

J'ai fait le tour d'internet (jamais eu de formation VBA donc je ne comprends pas grand chose...) pour faire ceci :
Sub Ouverture_Exe_Suivant()

Dim sh As Worksheets
If sh.Name Like "RA*" Or sh.Name = "ALEAS" Then
ActiveSheet.Outline.ShowLevels rowlevels:=0, columnlevels:=1
Columns("AI:AX").Select
Selection.EntireColumn.Hidden = False
ActiveSheet.Range ("O13").Select
Else
Exit Sub
End If

End Sub

Je ne sais pas si je suis claire dans mon explication mais j'aurais besoin d'un petit coup de main car cette deuxième fonction m'envoie le message "Erreur d'exécution '91' : Variable objet ou variable de bloc With non définie".

Merci d'avance !