tri et déplacement de colonnes entre onglets

[COLOR="DarkSlateGray"][B]Sub sélectionne()
Dim i&, j&, oDat, dDat, Col
   With Sheets("AMADEO")
      oDat = .Cells(2, 1).Resize(.Cells(.Rows.Count, 1).End(xlUp).Row - 1, 11).Value
      'Tableau d'origine.
   End With
   ReDim dDat(1 To UBound(oDat, 1), 1 To 6) 'Tableau de destination.
   Col = Array(Array(1, 3, 4, 5, 11), Array(4, 3, 1, 2, 6)) 'correspondance des colonnes
   For i = 1 To UBound(oDat, 1) 'copie ligne par ligne
      For j = 0 To UBound(Col(0))
         dDat(i, Col(1)(j)) = oDat(i, Col(0)(j))
      Next j
   Next i
   Sheets("VeilleE").Cells(6, 1).Resize(UBound(dDat, 1), 6).Value = dDat
End Sub[/B][/COLOR]

[COLOR="DarkSlateGray"][B]Sub sélectionne()
Dim i&, j&, oDat, dDat, Col
   [COLOR="Red"]With Sheets("AMADEO")[/COLOR]
      oDat = .Cells(2, 1).Resize(.Cells(.Rows.Count, 1).End(xlUp).Row - 1, 11).Value
      'Tableau d'origine.
      ReDim dDat(1 To UBound(oDat, 1), 1 To 6) 'Tableau de destination.
      Col = Array(Array(1, 3, 4, 5, 11), Array(4, 3, 1, 2, 6)) 'correspondance des colonnes
      For i = 1 To UBound(oDat, 1) 'copie ligne par ligne
         For j = 0 To UBound(Col(0))
            dDat(i, Col(1)(j)) = oDat(i, Col(0)(j))
         Next j
         [COLOR="Red"]If .Cells(i + 1, 11).Hyperlinks.Count Then dDat(i, 6) = .Cells(i + 1, 11).Hyperlinks.Item(1).Address[/COLOR]
      Next i
   [COLOR="Red"]End With[/COLOR]
   Sheets("VeilleE").Cells(6, 1).Resize(UBound(dDat, 1), 6).Value = dDat
End Sub[/B][/COLOR]