Grille base de donnée

Bonjour le forum,

Je n'arrive pas à résoudre un problème là ou il ne devrait pas
y en avoir.

J'ai créer une grille de donnée avec un titre en colonne Z1
Quand je fait manuellement "données / Grille" celà fonctionne.

Quand j'enregistre ma macro manuellement ça se bloque
à la ligne ActiveSheet.ShowDataForm quand je la fait
tourner à partir d'un bouton que j'ai mis sur la feuille.

voici ma macro

Range("z1").Select
ActiveSheet.ShowDataForm
Range("A1").Select

Merci à tous,

@Brigitte@