Option Explicit
Dim ouvrir As Variant
Dim onglet As Variant
Function doc()
doc= Sheets("conf").Range("O60").Value
End Function
Function Dest()
dest= Sheets("conf").Range("O61").Value
End Function
Sub Renommer()
ouvrir = doc
onglet = dest
Workbooks(ouvrir).Activate
Sheets(onglet).Select
end sub