Sub Ajouter_Noms()
Dim Feuil As Integer
Dim Largeur As Variant
Dim Col As Long
Dim Formule1 As String, BaseNom As String
For Feuil = 1 To ThisWorkbook.Worksheets.Count
With Sheets(Feuil)
.Activate
Largeur = InputBox("Quelle est la largeur du tableau de la feuille", "Création des noms: largeur du tableau", 0)
If IsNumeric(Largeur) Then
BaseNom = "onglet" & Format(Feuil, "00") & "_"
Application.Names.Add BaseNom & "01", Replace("=OFFSET('NomFeuille'!$A$1,1,0,COUNTA('NomFeuille'!$A:$A)-1,1)", "NomFeuille", .Name)
For Col = 2 To CLng(Int(Largeur))
Application.Names.Add BaseNom & Format(Col, "00"), "=OFFSET(" & BaseNom & "01,0," & Col - 1 & ")"
Next Col
End If
End With
Next Feuil
End Sub