Nommer une colonne apres la creation

je veux apres la creation de la colonne avec ce macro nomme la l'entete avec S+X (x le nombre de l'emplacement colonne cree) et des 0 sur toutes la colonne

voici mon code

Sub columncheck()
'variables 
Dim iCol As Long
Dim iCount As Long
Dim i As Long

'pour obtenir le nombre de colonnes que vous souhaitez insérer avec une input box (pr mon cas juste une coloone)
iCount = InputBox(Prompt:="Combien de colonne vous voulez ajouter?")

'pour obtenir le numéro de colonne où vous souhaitez insérer la nouvelle colonne
iCol = InputBox _
(Prompt:= _
"Après quelle colonne vous souhaitez ajouter une nouvelle colonne? (Entrer un nombre)")

'boucle pour insérer de nouvelles colonnes
For i = 1 To iCount
    Columns(iCol).EntireColumn.Insert
Next i
End Sub

Bonjour Ynss, le forum,

Une proposition a tester...de ce que j'ai compris...

Sub columncheck()
 'variables to use in the code
 Dim iCol As Long
 Dim iCount As Long
 Dim i As Long, dl As Long

 'dernière ligne
  dl = ActiveSheet.UsedRange.Rows.Count + 1

 'to get the number of columns that you want to insert with an input box
  iCount = InputBox(Prompt:="How many column you want to add?")

 'to get the column number where you want to insert the new column
  iCol = InputBox _
  (Prompt:= _
  "After which column you want to add new column? (Enter the column number)")

 'loop to insert new column(s)
  i = 1
   Do While i <= iCount
    ActiveSheet.Columns(iCol + 1).EntireColumn.Insert
    ActiveSheet.Cells(2, iCol + 1).Value = "S" & iCol
    ActiveSheet.Cells(3, iCol + 1) = 0
    ActiveSheet.Range(Cells(3, iCol + 1), Cells(dl, iCol + 1)).FillDown
    iCol = iCol + 1
    i = i + 1
   Loop
End Sub

Cordialement,

c'est exactement ce que je cherche, merci infiniment

SVP une petite modification si possible,

si jai un tableau l'etete est de S22-S34 par exemple, et je vx ajouter la colonne pour la semaine manquante S25

l'entete de la colonne precedente +1