Bonjour Dranreb & le forum,
J'ai intégré tes 2 fonctions avec le code suivant : voir fichier ci-joint.
TRés est toujours vide, Comment le remplir avec VerserTitColTab
'Récupérer les colonnes sélectionnées
Dim C_PHASE As String, C_ETAT As String, C_DPT As String, C_SERV As String, C_SIT As String
C_DPT = NTitTab(LOt, nC_DPT)
C_SERV = NTitTab(LOt, nC_SERV)
C_SIT = NTitTab(LOt, nC_SIT)
C_PHASE = NTitTab(LOt, nC_PHASE)
C_ETAT = NTitTab(LOt, nC_ETAT)
VerserTitColTab TRés, LOt, 2, Array(C_ETAT, C_PHASE, C_DPT, C_SERV, C_SIT)
FDselect.[A4].Resize(500, 12).Value = TRés
Merci de ton aide
KIM