erreur de format cellule

Bonjour à tous

Voici mon problème je suis à la recherche d'un code VBA qui fait double-clique dans la cellule A2 puis qui fait ENTER et qui retourne sur la ligne suivante

Pourquoi cette demande ?

Car les cellules sont au mauvais format

Un collègue m'a fait un petit code, il ne marche pas !
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Sub Macro1() ' ' Macro1 Macro ' Application.ScreenUpdating = False Range("A2").Activate Range("A2").Select While Not IsEmpty(ActiveCell) laDonnee = ActiveCell.Value Debug.Print "La donnée est " & laDonnee ActiveCell.Value = laDonnee ActiveCell.Offset(1, 0).Activate Wend Application.ScreenUpdating = True End Sub
Merci pour votre aide :D