XL 2016 Répeter une macro sur les feuilles suivantes

Sub Essai()
NoMin = 3: NoMax = 7
For NoFeuil = NoMin To NoMax
    Ecrit (NoFeuil)   ' lance la macro sur la feuille N° NoFeuil.
Next NoFeuil
End Sub
Sub Ecrit(N)
    Sheets("Feuil" & N).Range("A1") = Sheets("Feuil" & N).Range("A1") + 1
End Sub

Sub Essai2()
Dim Sh As Worksheet
For Each Sh In ActiveWorkbook.Sheets
    If Sh.Name <> "Header" And Sh.Name <> "Ne pas toucher" Then  ' Elimine les feuilles non concernées
        Ecrit2 (Sh.Name)
    End If
Next Sh
End Sub
Sub Ecrit2(NomFeuille)
    Sheets(NomFeuille).Range("A1") = Sheets(NomFeuille).Range("A1") + 1
End Sub

Sub previsions_trois_mois()
Dim Sh As Worksheet, x As Double

x = ActiveSheet.Index
For i = 0 To 3
Worksheets(x + i).Select
previsions'ma macro
Next i
Worksheets(x).Activate
End Sub