re
doss = Left(Cells(c, 1).Value, 2)
If ListBox1.Selected(0) = True And doss = 'FF' Then GoTo ensuite
If ListBox1.Selected(1) = True And doss = 'FD' Then GoTo ensuite
If ListBox1.Selected(2) = True And doss = 'FI' Then GoTo ensuite
If ListBox1.Selected(3) = True And doss = 'FE' Then GoTo ensuite
If ListBox1.Selected(4) = True And doss = 'FU' Then GoTo ensuite
pour ne prendre que les 2 caractères de gauche, le '*' ne marche pas
A+