Public Function BinaryReverse(ByRef pNumber As Variant) As Variant
 If IsNumeric(pNumber) = False Then Exit Function
 With WorksheetFunction
  BinaryReverse = .Bin2Dec(StrReverse(.Dec2Bin(pNumber)))
 End With
End Function

Thanks to all contributors... with your help, anything possible !