Bonsoir ACDL, le forum,
Nouvelle version :
Code à placer this workbook:
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
x = Sheets("Base").Range("A1").Value
y = Sheets("Base").Range("B1").Value
If ActiveSheet.Name <> "Base" Then
'Cells(1, 1) = ActiveSheet.Name & " " & x & " " & y 'cellule titre du tableau [1(ligne),1(colonne)]
Range("B2").Value = ActiveSheet.Name & " " & x & " " & y 'cellule titre du tableau B2
End If
End Sub
Cordialement,
PS : Cela reste du "bricolage", je te conseille vivement de suivre l'avis des pros par formule