With Sheets("RT")
DerLigne = .Range("A65535").End(xlUp).Row
For i = 2 To DerLigne
If .Cells(i, 1) = ComboBox1 Then
'MyArray(ligne, 0) = Cells(i, 1)
MyArray(ligne, 0) = .Cells(i, 2)
MyArray(ligne, 1) = .Cells(i, 3)
ligne = ligne + 1
End If
Next i
End With