Copier cellule sous condition par macro

Bonsoir je désirerais pouvoir si colonne D ligne 4 égal (comme exemple jaune A)copier colonne L ligne 4

si colonne D ligne 5 égal (comme exemple vert I)copier T ligne 5

et ainsi de suite il peux il y avoir plusieurs couleurs identiques dans la colonne D qui actuellement pour l exemple s’arrête à ligne 17

MERCI

CDT

Bonjour,

Un début de réponse à adapter.

Cdlt.

Option Explicit

Public Sub DEMO()
Dim lastRow As Long, n As Long, I As Long
    With ActiveSheet
        lastRow = .Cells(.Rows.Count, 4).End(xlUp).Row
        n = 53
        With .Cells(4, 12).Resize(lastRow - 3, 10)
            .Interior.Color = xlNone
            .ClearContents
        End With
        For I = 4 To lastRow
            .Cells(I, 4).Copy .Cells(I, VBA.Asc(.Cells(I, 4).Value) - n)
        Next I
    End With
End Sub

Bonjour

Merci de votre réponse mais les lettres A B C etc. servaient d’exemples en faites, ce sont des noms de lieux.

Exemple en D4 TOTO en L colonne Excel

D 5 tata en M colonne Excel

D6 maison en N

D7 HLM en O

D8 office en P

etc .

L’ensemble de ses noms ne sont pas figées dans la colonne D , une fois en D4 TOTO ET AUTRE FOIS TATA comme pour les autres cellules de la colonne .

Merci

CDT

Bonjour,

Tu as compris pour la prochaine fois.

Tu enverras un fichier représentatif de tes données.

Cdlt.

Bonjour,

Un début de réponse à adapter.!!

Merci de votre réponse clair , nette et précise.

CDT