Sub degreeSymbol() Dim plagecellule As Range For Each plagecellule In Selection plagecellule.Select If ActiveCell <> "" Then If IsNumeric(ActiveCell.Value) Then ActiveCell.Value = ActiveCell.Value & "°" End If End If Next End Sub
Disons que vous avez une liste de nombres dans une colonne et que vous souhaitez ajouter un symbole de degré avec chacun d’eux.