Sub Fdeux()
Dim vCel2 As Range, Plage2 As Range
On Error GoTo SaisieAnnulee
Set Plage2 = Application.InputBox(prompt:="Selectionnez la plage à arrondir puis OK", Type:=8)
'ouverture d'une box pour demander la plage désirée
For Each vCel2 In Plage2
If Left(vCel2.Formula, 1) = "=" Then vCel2.Formula = "=" & Mid(vCel2.Formula, 2)
Next vCel2
Exit Sub
SaisieAnnulee:
On Error GoTo 0
End Sub