Bonjour Denis
Le n'ai pas eu trop de temps mais voila un bout de code
Sub Odonner()
'
' La macro trie une BDD en fonction d'un liste
' La liste est sur une feuille ordretri
' Les deux feuilles sont dans le même claseur. A adapter si différents
'
Dim Cellules As Variant, Reference As Variant
Dim Valeur As String, ContenuDeplace As String
Dim NbCellules As Integer, Position As Integer, Compteur As Integer
Const FeuilReference As String = "OrdreTri", FeuilATrier As String = "feuil1"
'
Sheets(FeuilATrier).Activate
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
NbCellules = Selection.Rows.Count
Sheets(FeuilReference).Activate
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
Position = 0
For Each Reference In Selection
Valeur = Reference.Value
Sheets(FeuilATrier).Activate
For Compteur = Position To NbCellules
If Range("A2").Offset(Compteur, 0) = Valeur Then
If Compteur = Position Then
Position = Position + 1
Else
ContenuDeplace = Range("A2").Offset(Position, 0)
Range("A2").Offset(Position, 0) = Range("A2").Offset(Compteur, 0).Value
Range("A2").Offset(Compteur, 0) = ContenuDeplace
Position = Position + 1
End If
End If
Next Compteur
Sheets(FeuilReference).Activate
Next Reference
End Sub