Hi Fred,
Take a look at CombinePlots
from the function repository.
From the documentation
ResourceFunction["CombinePlots"][
Plot[x^2, {x, 0, 10}, Frame -> True],
Plot[100 x^4, {x, 0, 10},
ScalingFunctions -> "Log",
Frame -> True, FrameStyle -> Red, PlotStyle -> Red],
"AxesSides" -> "TwoY"]
