nom onglet

Private Sub Workbook_Open()
Feuil2.Name = "U.S.L.D. " & Feuil8.Range("C3").Value & " " & Feuil8.ComboBox1.Value
End Sub

Private Sub Workbook_Open()
Feuil2.Name = "U.S.L.D. " & Format(Date, "mmmm") & " " & Year(Date)
End Sub

Private Sub ComboBox1_Change() 'au changement dans la ComboBox1
Call chang 'lance la procédure "chang"
End Sub

Private Sub Worksheet_Change(ByVal Target As Range) 'au changement dans l'onglet
If Target.Address = "$C$3" Then Call chang 'si le changement a lieu dans la cellule c3, lance la procédure "chang"
End Sub

Public Sub chang()
Dim an As Integer 'déclare la variable an (ANnée)

an = Sheets(1).ComboBox1.Value 'définit l'année an
Sheets(2).Name = "U.L.S.D. " & Sheets(1).Range("C3").Value & " " & an 'définit le nom du second onglet
End Sub