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 : Sélectionner tout - Visualiser dans une fenêtre à part
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