Bonjour,
Ecriture plus conforme à un bon usage de VBA :
Sub CreationOnglet()
Dim pj As String
pj = Workbooks("Profils.xlsx").Worksheets("Calendrier").Cells(2, 2).Text
MsgBox pj
End Sub
(Abandonner une bonne fois l'enregistreur ! )
Si le message n'affiche rien, c'est que la cellule B2 n'affiche rien !