Excel: Transposer une Matrice sous forme de liste

Bonjour à tous,

J ai un petit bug dans le programme à résoudre.
Une des personne du forum (Pingou) m'a beaucoup aidé à monté ma matrix. Merci Pingou.
Cependant j'ai un petit bug qui subsiste.

- Quand je remplis ma matrice de dépendance, j ai une liste (dans un autre onglet) qui s'incrémente automatiquement en venant chercher les l'informations associées.
- Dans la liste qui est sous forme de tableau il reste des colonne que je peux remplir manuellement.

Problème:
Apres avoir remplis les colonne H and up de la liste, je retourne dans la matrice pour remplir d'autres champs.
et quand je reviens sur la liste, tous les commentaires de la colonne H and up ont disparues.



Voici le code:

Option Explicit
Sub TransListe()
Dim shm As Object, tb As Object
Dim deco As Long, deli As Long, n As Long, nbc As Long
Dim li As Integer, lli As Integer, lit As Integer, dr As Integer
Dim liste() '1 To 10, 1 To 6)
li = 4: lli = 1
Set shm = Sheets("Dependency Matrix")
deli = shm.Cells(Rows.Count, 2).End(xlUp).Row
deco = shm.Cells(2, Columns.Count).End(xlToLeft).Column
nbc = Application.CountA(shm.Range(shm.Cells(li, 4), shm.Cells(deli, deco)))
ReDim liste(1 To nbc, 1 To 6)
With shm
Do While .Cells(li, 2) <> ""
n = Application.CountA(.Range(.Cells(li, 4), .Cells(li, deco)))
If n <> 0 Then
For dr = 4 To deco
If .Cells(li, dr) <> "" Then
liste(lli, 1) = "DS" & Format(lli, "000")
liste(lli, 2) = .Cells(li, 2)
liste(lli, 3) = .Cells(li, 3)
liste(lli, 4) = .Cells(li, dr)
liste(lli, 5) = .Cells(3, dr)
liste(lli, 6) = .Cells(2, dr)
lli = lli + 1
End If
Next dr
End If
li = li + 1
Loop
End With
Set tb = Range("Tableau3")
If tb.Item(1, 1) <> "" Then tb.Delete
lit = tb.Row
Sheets("Dependency Liste").Cells(lit, 2).Resize(UBound(liste, 1), UBound(liste, 2)).Value = liste
Set shm = Nothing
Set tb = Nothing
End Sub

Merci de votre aide

Hekiz