Salut ericbtz, salut le forum,
le problème c'est que VBA n'utilise pas les même mots pour faire la même chose que les formules. Personnellement, même si on ne me demande pas mon avis, je trouve ça assez c... !
Essaie ce code, ça devrait marcher :
Public Sub docteur()
For Each cel In Selection
If Mid(cel.Value, 1, 2) = 33 Then
cel.Value = Mid(cel.Value, 3, Len(cel.Value) - 2)
End If
Next
End Sub