Sub datejour()
Dim tempCell As Range Selection.Value = Selection.Value For Each tempCell In Selection If IsDate(tempCell) = True Then With tempCell .Value = Day(tempCell)
.NumberFormat = "0"
End With End I f
Next tempCell End Sub

Si vous avez des dates dans votre feuille de calcul et que vous souhaitez convertir toutes ces dates en jours, ce code est fait pour vous. Sélectionnez simplement la plage de cellules et exécutez cette macro.