Problème itération

Bonjour

Dans une feuille excel, j'ai 19 noms de projet. Dans une listbox j'ai inséré les différents noms de projet grâce au code suivant :

Private Sub Userform_Initialize()

For i=3 to 21
Me.ListBox1.AddItem Sheets("Informations générales).Cells(1,i)
Next

Ceci marche parfaitement. Je viens de créer un bouton dans ma feuille qui ajoute un projet, toutes les colonnes sont décalées vers la droite et donc le nouveau nombre de projet est de 20. Quelles instructions dois je écrire pour que lorsque j'appuie sur le bouton, le For devienne For i=3 to 22?

j'espère avoir été clair

Merci d'avance pour vos réponses.

Bonjour

A tester

Private Sub UserForm_Initialize()
  With Sheets("Informations générales")
    For i = 3 To .Cells(1, Columns.Count).End(xlToLeft).Column
      Me.ListBox1.AddItem .Cells(1, i)
    Next
  End With
End Sub

Merci pour la réponse, je viens d'essayer mais j'ai un message d'erreur : "Erreur d'execution 1004, Erreur définie par l'application ou par l'objet."

Bonjour

Normalement j'ai testé et pas de soucis

Sur quelle ligne le message d'erreur ?

Joins ton fichier (ou un extrait)

Ca bug à la ligne du for. J'ai joint mon fichier, j'ai supprimé toutes les valeurs et changé les noms de projets car ce sont des données confidentielles.

Bonjour

Je n'ai pas vu de plantage

A vérifier avec le code que je t'ai fait

C'est parfait ça fonctionne. Merci beaucoup !!!