re
ecoute fini ta nuit sinon on va pas s'en sortir
c'est quand même pas moi qui ai codé ça
Private Sub UserForm_Initialize()
Set f = Sheets("LISTE_A_PLAN")
Set Rng = f.Range("A10:CN" & f.[A1000].End(xlUp).Row)
decal = Rng.Row - 1
Ncol = Rng.Columns.Count
Tbltmp = Rng.Value
Ncol = Rng.Columns.Count - 1
ReDim choix(1 To UBound(Tbltmp))
For I = LBound(Tbltmp) To UBound(Tbltmp)
Tbltmp(I, Ncol + 1) = I + decal
For k = 1 To Ncol
choix(I) = choix(I) & Tbltmp(I, k) & "|"
'If k >= 3 And k <= 5 Then TblTmp(I, k) = Format(TblTmp(I, k), "00 00 00 00 00")
Next k
choix(I) = choix(I) & (I + decal) & "|"
Next I
Me.ListBox1.List = Tbltmp
b_ajout_Click
End Sub
et cette feuille est absente dans le fichier que tu a posté
si tu pige pas je peux plus rien pour toi