Sub update_title()
Dim o As Object 'déclare la variable o (Onglet)
Dim dl As Long 'déclare la variable dl (Dernière Ligne)
Dim j As Integer 'déclare la variable j (incrément)
Dim nomfeuille As String 'déclare la variable nomfeuille
Dim i As Integer 'déclare la variable i (Incrément)
Dim fs() As Variant 'déclare la variable fs (tableau des Feuilles à Sélectionner)
Set o = Sheets("Scenarios list") 'définit l'onglet o
dl = o.Cells(Application.Rows.Count, 1).End(xlUp).Row ' définit la dernière ligne éditéee dl de la colonne 1 (=A) de l'onglet o
For j = 6 To dl ' boucle des lignes 6 à dl
nomfeuille = o.Range("A" & j) 'définit la variable nomfeuille
Sheets(nomfeuille).Range("B1") = o.Range("D" & j) & "-" & "X" & Left(o.Range("A" & j), 2) & Right(o.Range("A" & j), 6)
Sheets(nomfeuille).Range("B2") = o.Range("B" & j)
Sheets(nomfeuille).Range("B3") = o.Range("C" & j)
If o.Cells(j, 4).Value <> "" Then 'condition : si la cellule en colonne D n' est pas vide
ReDim Preserve fs(i) 'redimensionne le tableau fs
fs(i) = nomfeuille 'attribue la valeur de la variable nomfeuille à la variable indexéee fs(i)
i = i + 1 'incrémente i
End If 'fin de la condition
Next j 'prochaine ligne de la boucle
Sheets(fs).Select 'sélectionne les onglets du tableau fs
End Sub