Svp aidez moi - je suis perdu

[alexou89]

Bonjour à tous,

Sub UpdateList()
Dim tg As Integer
Dim i As Integer
tg = 2
For i = 2 To [DB_Count]
tg = tg + 1
    If UCase(Sheets("Database").Cells(i, 4)) = UCase(Sheets("RedList").Range("B2")) Then
        If Len(Sheets("Database").Cells(tg, 1)) = 8 Then
            Sheets("RedList").Cells(tg, 1) = Sheets("Database").Cells(i, 1)
        ElseIf Len(Sheets("Database").Cells(tg, 1)) = 6 Then
            Sheets("RedList").Cells(tg, 1) = Sheets("Database").Cells(i, 1)
        End If
        Sheets("RedList").Cells(tg, 2) = Sheets("Database").Cells(i, 5)
        Sheets("RedList").Cells(tg, 3) = Sheets("Database").Cells(i, 6)
        Sheets("RedList").Cells(tg, 4) = Sheets("Database").Cells(i, 3)
        Sheets("RedList").Cells(tg, 5) = Sheets("Database").Cells(i, 11)
     End If
Next i
End Sub

J'ai fait ce code aujourd'hui qui marche très bien.
Cependant j'aimerai le faire évoluer sur un certain point:

    If UCase(Sheets("Database").Cells(i, 4)) = UCase(Sheets("RedList").Range("B2")) Then

Sur la feuille RedList j'ai 5 colonnes
Code Nom Année Pays Prix

Ma database possèdent une 15aine de colonnes. Ce code importe en fonction de la valeur de B2, les infos de 5 des 15 colonnes (j'ai pas besoin du reste sur cette feuille.)

Cependant, la colonne 4 de Database comporte différentes valeurs.

J'aimerai faire evoluer ce code pour importer les infos comme j'ai déjà dans mon code et à chaque fois que la valeur de la colonne 4 change sauter une ligne et écrire cette nouvelle valeur (comme sous-titre en gros)

Bien sur la Database sera automatiquement triée avant cette opération.

Merci pour votre future aide!

Cordialement

Alex!