Reporter cellule coloriée

Bonjour,

J'aimerais "reporter" sur une ligne cible les cellules coloriées.

Voir tableau

merci pour votre aide

Bonjour avalanche98, le forum,

En partant du principe qu'il n'y a qu'une seule valeur par colonne:

Sub report()

Dim i As Integer
Dim j As Integer

    For i = 2 To 6   'ligne 2 à 6
    For j = 3 To 22  'colonnes C à X (3 à 22)

If Cells(i, j) <> "" Then  'si la cellule n'est pas vide
   Cells(9, j) = Cells(i, j) 'on inscrit les valeurs de C9 à X9
End If

    Next j
    Next i

End Sub

Cordialement,

Bonjour xorsankukai, le forum,

Merci pour votre réponse,

Y'a t'il une solution sans VBA, car j'ai peur qu'il y' ait des interférences avec les autres dossiers de mon tableau.

a+