Sub supppimerHeure() Dim plagecell As Range For Each plagecell In Selection If IsDate(plagecell) = True Then plagecell.Value = VBA.Int(plagecell.Value) End If Next Selection.NumberFormat = « dd-mmm-yy”