Do Until Cells(Ligne_Listing, 1).Text <> Cells(Ligne_Listing + Compteur_Tri, 1).Text
[COLOR="#FF0000"] If Cells(Ligne_Listing, 1).Text = "Valeur Particulière" Then
Cells(Ligne_Attrib, Colonne) = Cells(Ligne_Listing + Intervalle, 2)
Cells(Ligne_Attrib, Colonne + 1) = Cells(Ligne_Listing + Intervalle, 3)
Cells(Ligne_Attrib + 1, Colonne) = Cells(Ligne_Listing + Intervalle + 1, 2)
Cells(Ligne_Attrib + 1, Colonne + 1) = Cells(Ligne_Listing + Intervalle + 1, 3)
Colonne = Colonne + 2
Intervalle = Intervalle + 2
Compteur_Tri = Compteur_Tri + 2
Loop
End If[/COLOR]
Cells(Ligne_Attrib, Colonne) = Cells(Ligne_Listing + Intervalle, 2)
Cells(Ligne_Attrib, Colonne + 1) = Cells(Ligne_Listing + Intervalle, 3)
Colonne = Colonne + 2
Intervalle = Intervalle + 1
Compteur_Tri = Compteur_Tri + 1
Loop