Salut,
Erreur de synthaxe toute nulle xD J'ai pourtant mis du temps à trouver.
sur la ligne ou ça plante tu remplaces :
Me.Controls("TextFour" & X).Text = Me.ListFour.Column(X - 1, Me.ListFour.ListIndex)
par
Me.Controls("TxtFour" & X).Text = Me.ListFour.Column(X - 1, Me.ListFour.ListIndex)
Juste le "e" en trop :p
Girodo