Bonjour Hajjej, bonjour le forum,
Il y a plusieurs méthodes. Celle que je te propose utilise le Gestionnaire de noms de l'onglet Formules.
1. Dans l'onglet Info_Base clique dans A1 (Véhicule).
2.Ouvre le Gestionnaire de noms
3. Clique sue le bouton Nouveau, la boîte de dialogue Nouveau nom s'ouvre et par défaut elle te propose la valeur de A1, Véhicule par défaut (en rajoutant des _ s'il y a des espace)
4. Le champ Fait référence à indique :
=Info_Base!$A$1
5. Remplace cette formule par :
=DECALER(Info_Base!$A$2;;;NBVAL(Info_Base!$A:$A)-1)
6. Valide avec le bouton OK.
Le nom Véhicule est désormais dynamique. Tu peux ajouter/supprimer des lignes, ce sera prix en compte.
Fait pareil avec les autres listes en remplaçant chaque fois la colonne A par (C pour les équipes, E pour les projets, etc.)
Ton code d'initialisation deviendra (en utilisant le nom créé avec le Gestionnaire de noms):
Private Sub UserForm_Initialize()
Me.Veh_Box.List = Range("Véhicule").Value
'etc
End Sub
Le Call Reset n'a plus lieu d'être...
[Édition]
Bonjour Fanfan, nos posts se sont croisés...