Bonjour,
Un exemple :
Soit une ListBox de 5 colonnes alimentée par un range et la colonne date est la 3ème colonne.
With .ListBoxBaseMateriel
.ColumnCount = 5
.List = AireMercurialeListe.Value
For I = 0 To .ListCount - 1
.List(I, 2) = Format(CDate(.List(I, 2)), "mmm-yy")
Next I
End With