Tableau Excel : ordonnancement

Voila.

Sub test()
i = 19

    Do While Cells(i, 1) <> ""

        If Cells(i, 1).Interior.Color = 5296274 Then
            Rows(i).Select
            Selection.Cut
            Rows("18:18").Select
            Selection.Insert

        End If

     i = i + 1
    Loop

End Sub

Si tu as des questions, n'hésites pas.

Hum, je ne comprends pas du coup.. pourquoi 18,18 dans Rows?

    Sub test()
    i = 19 'compteur de ma boucle on commence a la ligne 19

        Do While Cells(i, 1) <> "" 'tant que ma cellule (19,1) càd "A19" puis "A20" etc ... n'est pas vide 

            If Cells(i, 1).Interior.Color = 5296274 Then 'si ma cellule (19,1) donc "A19" contien du vert clair alors
                Rows(i).Select 'on selectionne toute la ligne concerné
                Selection.Cut 'on la coupe
                Rows("18:18").Select 'on sélectionne la première ligne de ton tableau
                Selection.Insert 'et on insère 

            End If

         i = i + 1 'on oublie pas d'intempté i pour tester la prochaine ligne 
        Loop

    End Sub

Okay c'est plus clair.. Franchement, merci pour ta réactivité et ton aide!

Pas de problème. Donc à chaque fois que tu appuis sur ton bouton, tu reboucle en fait.

Hello tout le monde !

Je reviens à la charge.. En voulant duppliquer le tableau j'ai perdu tout l'effet de la macro. Mon tableau commence à la ligne 17 (pour le titre des colonnes) et 18 pour le contenu réel. Pour rappel, je voulais faire en sorte qu'en cliquant sur le bouton, les lignes coloriées en vert fluo passent au tout début du tableau.

Voici mon code VBA :

Sub test()

i = 18

Do While Cells(i, 1) <> ""

If Cells(i, 1).Interior.Color = 5296274 Then

Rows(i).Select

Selection.Cut

Rows("17:17").Select

Selection.Insert

End If

i = i + 1

Loop

End Sub

Pourriez-vous, s'il vous plait, m'aider sur mes erreurs?

Merci beaucoup