Sub Macro1()
Dim CEL As Range 'déclare la variable CEL (CELlule)
For Each CEL In ActiveSheet.UsedRange 'boucle sur toutes les cellules CEL de la plage des cellules éditées
On Error Resume Next 'gestion des erreurs (en cas d'erreur passe à la ligne suivante)
CEL.Value = Round(CEL.Value, 0) 'arrondit la valeur de la cellule au nombre entier (génère une erreur si le contenu de la cellule n'est pas numérique)
If Err <> 0 Then Err.Clear 'si une erreur a été générée, supprime l'erreur
On Error GoTo 0 'annule la gestion des erreurs
Next CEL 'prohaine cellule de la plage des cellules éditées
End Sub