Sub Macro1()
Dim OT As Worksheet 'déclare la variable OT (Onglet Tableau de bord)
Dim OFV As Worksheet 'déclare la variable OFV (Onglet Formalisme RTE Vierge)
Dim OFC As Worksheet 'déclare la variable OFC (Onglet Formalisme RTE Copie)
Dim OP As Worksheet 'déclare la variaboe OP (onglet ParamètresImpression)
Dim LD As Integer 'déclare la variable LD (Ligne de Début)
Dim LF As Integer 'déclare la variable LF (Ligne de Fin)
Set OT = Worksheets("TABLEAU DE BORD") 'définit l'onglet OT
Set OFV = Worksheets("Formalisme RTE Vierge") 'définit l'onglet OFV
Set OP = Worksheets("ParamètresImpression") 'définit l'onglet OP
LD = OP.Range("E3").Value 'définit la ligne de début LD
LF = OP.Range("E5").Value 'définit la ligne de fin LF
For I = LD To LF
OFV.Copy After:=Sheets(Sheets.Count) 'copie l'onglet OFV en dernière position
ActiveSheet.Name = "Formalisme RTE " & OT.Cells(I, "B").Value 'renomme l'onglet avec le la valeur du support gauche de la ligne de la boucle
Set OFC = ActiveSheet 'définit l'onglet OFC
OFC.Range("H2").Value = OT.Cells(I, "B").Value 'récupère dans la cellule H3 de l'onglet OFC la valeur du support gauche de la ligne de la boucle
Next I 'prochaine ligne de la boucle
End Sub