Malgré mes multiples essais je n’arrive pas à trouver une solution à mon problème.
A vraie dire, tout est dans l’intitulé, je souhaite transposer toutes les cellules colorées d’une plage (AN3:BB ?) dont les lignes sont variable dans la colonne BF.
Je reste à votre disposition pour d’autres informations.
Sub test_transfert()
n = 3
For i = Cells(3, "AN").Column To Cells(3, "BB").Column Step 2
For Each c In Cells(3, i).CurrentRegion
If c.Interior.ColorIndex <> xlNone Then
c.Copy Cells(n, "BF")
n = n + 1
End If
Next
Next
End Sub