Dim i, j As Integer
Dim trouve As Boolean
i = 0
j = 0
While (i < nb_lignes) And (trouve = False)
i = i + 1
While (j < nb_colonnes) And (trouve = False)
j = j + 1
If (Cells(i, j).Value = ComboBox1.Value) Then
trouve = True
End If
Wend
Wend
Range(Cells(1, j), Cells(nb_lignes, j)).Copy
en esperant qu'il n'y ait pas d'erreur....
a+