Bonjour,
Bon, je reviens un peu tard mais pour le fun :
Sub Objet_Suiveur()
Dim Gauche As Integer, Haut As Integer, Ligne As Integer, Nb_Colonnes As Integer, X As Integer, Y As Integer
Dim Plage As Range
Ligne = 36 'N° de ligne de la position intiale de l'objet (coin supérieur) - A adapter
Y...