Etape (marqueur) dans une macro VBA

Bonjour à tous.

C'est ma première visite sur ce site (même sur un forum). Tout d'abord, merci à tous ceux qui sont à l'origine ou qui contribus à la vie du Forum. Je souhaite préciser que j'utilise les macro VBA déjà depuis 10 ans mais 100% autodidacte, je ne vais donc pas toujours au plus simple. Merci d'avance pour votre compréhension.

Je vais essayer d'exposer ma difficulté :

J'ai une macro qui fait un certain nombre de tache (présentation et soustotal dans certaine colonnes).

Mon fichier (qui est une extraction) a plusieurs onglets toujours les mêmes mais ils ne sont pas toujours tous présents (les taches sont différentes en fonction des onglets).

Forcément quand ma macro arrive sur un onglet qui n'existe pas elle bloque.

Je voudrai pouvoir dire au début de chaque onglet : Si est erreur la sélection de l'onglet "E2" aller à l'étape "DDDD" sinon aller à l'étape "AAAA"

C'est pourquoi je cherche un moyen de mettre des étapes tout au long de ma macro et comment écrire la fonction ci-dessus.

Dessous un petit extrait de ma macro (pour l'exemple si la page "E2" n'existe pas la macro s'arrête alors qu'il y a d'autre pages derrières

Merci d'avance

Bonjour Sandrine357 et bienvenue

Pour commencer, VBA est un langage orienté objet il faut les utiliser, il est souvent inutile de faire des "Select"
Concernant la redirection d'erreur, il suffit d'utiliser On Error

On Error Goto Suite1
' procédure ...

Suite1:
' Suite procédure

Le code modifié

Sub Sandrine357()
  On Error GoTo Suite1
  'Pour selection Page 08
  With Sheets("08")
    .Activate
    'Mettre les volets en D4
    .Range("D4").Select
    ActiveWindow.FreezePanes = True
    'Mettre les filtres
    .Rows("1:1").AutoFilter
    'insérer une ligne
    .Rows("1:1").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    'Faire un plan
    .Columns("N:R").Columns.Group
    'Nomer la plage de cellule HT08 et en faire un soustotal 9
    Dim PlageHT08 As Range
    .Range("H4").Select
    Set PlageHT08 = .Range(Selection, Selection.Offset(0, -7).End(xlDown).Offset(1, 7))
    ActiveWorkbook.Names.Add Name:="PlageSStotHT08", RefersTo:=PlageHT08
    .Range("H3").FormulaR1C1 = "=SUBTOTAL(9,PlageSStotHT08)"
  End With

Suite1:
End Sub

Nota : pour le code, pense à utiliser le bouton prévu pour ça

A+

Bonjour JExceL2fr,

Tout d'abord, je te remercie beaucoup pour ta réponse, mais je rencontre un problème supplémentaire :

J'ai l'impression que ça ne marche qu'une seule foi. Or j'en ai potentiellement 46.

Je mets dessous un extrait de ma macro

Dans cet exemple si la page A4 n'existe pas c'est très bien, mais si la page A4 et la page A5 n'existent pas la macro bloque sur With Sheets("A5")

Bonjour Sandrine,

Vous ne semblez pas comprendre l'histoire du bouton à utiliser pour coller votre code

Ensuite, nous ne savions pas ce que vous vouliez faire !
si c'est pour reproduire la même chose sur plusieurs feuilles, il suffit de faire une boucle

Regardez comment se présente mon code (entre balises) et qui est celui à utiliser, j'espère qu'il marchera sur votre fichier

Sub Sandrine357()
  Dim Sht As Worksheet
  Dim PlageHTA() As String, PlageTVA() As String
  Dim Inc As Integer
  Inc = 1
  ' Pour chaque feuille du classeur
  For Each Sht In ThisWorkbook.Sheets
    Sht.Select
    ' Mettre les volets en D4
    Sht.Range("D4").Select
    ActiveWindow.FreezePanes = True
    ' Mettre les filtres
    Sht.Rows("1:1").AutoFilter
    ' Mettre au format nombre
    Sht.Columns("H:I").NumberFormat = "#,##0.00"
    ' Largeur auto de la colonne A pour les numéros de factures
    Sht.Range("A1").Columns("A:A").EntireColumn.AutoFit
    ' insérer 3 lignes
    Sht.Rows("1:3").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    'Faire un plan
    Sht.Columns("N:R").Group: Sht.Columns("B:B").Group: Sht.Columns("T:T").Group
    'Nomer la plage de cellule HTA2 et en faire un soustotal 9
    Sht.Range("H4").Select
    Inc = Inc + 1
    PlageHTA(Inc) = Sht.Range(Selection, Selection.Offset(0, -7).End(xlDown).Offset(1, 7))
    ActiveWorkbook.Names.Add Name:="PlageSStotHTA" & Inc, RefersTo:=PlageHTA(Inc)
    Sht.Range("H3").FormulaR1C1 = "=SUBTOTAL(9,PlageSStotHTA" & Inc & ")"
    'Idem pour TVA2
    Sht.Range("I4").Select
    PlageTVA(Inc) = Sht.Range(Selection, Selection.Offset(0, -8).End(xlDown).Offset(1, 8))
    ActiveWorkbook.Names.Add Name:="PlageSStotTVA" & Inc, RefersTo:=PlageTVA(Inc)
    Sht.Range("I3").FormulaR1C1 = "=SUBTOTAL(9,PlageSStotTVA" & Inc & ")"
  Next Sht
End Sub

A+