Bonsoir,

J'ai opté pour l'utilisation d'une macro afin de supprimer les cellules de la colonne A qui ne sont pas colorées.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
Sub aff_cellule_coloree()
 Dim i
For i = 1 To 15
'si cellule avec couleur ne rien faire
If Worksheets(1).Range("A" & i).Interior.Color<>null Then
'sinon supprimer les cellules sans couleurs vers le haut  
Else: Range("A" & i).Delete Shift:=xlUp
End If
Next i
End Sub
Mon souci est que je n'ai pas le résultat souhaité