Discussion :

[cachou52fr]

Bon, j'ai trouvé la macro et ça fonctionne,
c'était:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 Sub retour()
 
 Dim x As Range
 Set x = Columns(7).Find("", Cells(Rows.Count, 7), xlValues, , 1, 1, 0)
 If Not x Is Nothing Then x.Select
 
End Sub

Merci à tous d'avoir cherché mon bleme