Private Sub MoveInList(Of T)(ByVal list As List(Of T), ByVal ancienIndex As Integer, ByVal nouvelIndex As Integer)
...
End Sub