Private Sub CommandButton1_Click()
Dim café, IndewW As Integer, LastRow As Integer, L As Integer, C As Integer
café = RGB(217, 151, 149)
IndexW = 1
Range("K:K").ClearContents
LastRow = Range("A" & Rows.Count).End(xlUp).Row
For C = 1 To 5
For L = 1 To LastRow
If Cells(L, C).Interior.Color = café Then
Cells(IndexW, 11) = Cells(L + 1, C)
IndexW = IndexW + 1
End If
Next L
Next C
End Sub
Il était inutile de créer un nouveau fil et c'est toujours confus, je laisse tomber.
Vous êtes novice.
En fait la liste est effacée puis reconstruite.
Mais s'il n'y a pas de changement, cela va trop vite pour que vous voyez quelque chose.
En PJ j'ai rajouté un bouton Effacer pour l'exemple.
Vous appuyez sur Effacer : La liste est vide
Vous appuyez sur Afficher : La liste est reconstruite.
@sylvanu chez moi non plus ça ne fonctionne pas : les codes RGB ne sont pas corrects.