Option Explicit'oblige de déclarer les variables
Option Compare Text
Sub bulletin()
Dim n As Long
Application.EnableEvents = False
n = Replace("Sal11", "Sal", "")
Sheets("Bulletin").Visible = True
Sheets("Bulletin").[B7] = n ' Val(n)
Sheets("Bulletin").Activate 'Select
Application.EnableEvents = True
End Sub