Re,
J'ai testé mon fichier au travail, sur un PC allemand, et ça coince !
Si ça bugge chez toi également, essaie de remplacer le nom des boutons en français par des noms en anglais (accepté sur toutes les versions), c'est à dire remplace le code en place par celui-ci :
Private Sub Worksheet_Activate()
With Sheets("TABLEMAT")
If .Range("B3") = "N/R" Then
ActiveSheet.Shapes("Button 1").Visible = False
Else
ActiveSheet.Shapes("Button 1").Visible = True
End If
If .Range("B4") = "N/R" Then
ActiveSheet.Shapes("Button 2").Visible = False
Else
ActiveSheet.Shapes("Button 2").Visible = True
End If
If .Range("B5") = "N/R" Then
ActiveSheet.Shapes("Button 3").Visible = False
Else
ActiveSheet.Shapes("Button 3").Visible = True
End If
End With
End Sub
Et puis dis-nous ce qu'il en est
Cordialement.