Salut,

je m'incruste pour une microscopique correction :mrgreen:

Donc remplacer

par

Command3.Move 120, 420, 2115, 315: Command3.Caption = "Vider le FlexGrid"