Appliquer un cde VBA sur certaines feuilles et pas d'autres

 
Sans rentrer dans le détail de ton code VBA :

1) Attention aux noms de feuilles ! Je pense que ce n'est pas "Eolution_simulation "
    mais "Evolution_simulation" : avec un v, et sans espace à la fin.

==================================

2) Pour les instructions du travail à faire, 2 possibilités selon qu'on utilise ou non
    un Select pour aller sur la feuille (on choisit cela selon le travail à faire).

-----------------------------------------------------------

a) Sans Select

Option Explicit

Sub Essai()
  Dim FX As Worksheet
  For Each FX In Worksheets
    If FX.Name <> "Param" And FX.Name <> "Budget" Then
      FX.[B2] = "X": FX.[C2] = "Y": FX.[D2] = "Z"
    End If
  Next FX
End Sub

OU

Option Explicit

Sub Essai()
  Dim FX As Worksheet
  For Each FX In Worksheets
    With FX
      If .Name <> "Param" And .Name <> "Budget" Then
        .[B2] = "X": .[C2] = "Y": .[D2] = "Z"
      End If
    End With
  Next FX
End Sub

-----------------------------------------------------------

b) Avec Select

Option Explicit

Sub Essai()
  Dim FX As Worksheet, chn As String: Application.ScreenUpdating = False
  For Each FX In Worksheets
    chn = FX.Name
    If chn <> "Param" And chn <> "Budget" Then
      FX.Select
      [B2] = "X": [C2] = "Y": [D2] = "Z"
    End If
  Next FX
End Sub

Le Select est en ligne #9 : FX.Select

==================================

Je te laisse voir tout ça, et adapter ton code VBA.  :)
 

Bonjour,

@ madjon6
Pourquoi avoir ajouté Else juste après le Then ???
eric

edit : utilise l'icone <> pour rendre la lecture du code plus agréable stp