Sub DupliquerOnglet()
' copie la feuille modèle et la renomme
Dim Onglet As Worksheet
Set Onglet = ActiveWorkbook.Sheets("Vierge")
Onglet.Copy After:=Onglet
ActiveSheet.Name = Application.InputBox("Nom de l'onglet, Format JJ.MM.AAAA", Type:=2)
' renseigne les valeurs pont et compteur horraire
Dim Pont As Byte
Dim Compteur As String
Pont = InputBox("Indiquer le n° du pont")
[D4] = Pont
Compteur = InputBox("Indiquer la valeur du compteur horaire")
[D5] = Compteur
End Sub