SI Conditionnel et Transposé

Bonjour,

J'ai un problème de conception. j'essaie plein de truc depuis 2 jours, mais je n'arrive a rien. Voici mon problème,

J'ai un classeur excel avec 2 feuilles. Dans la première, j'ai une liste de nom avec des numéro unique pour chacun (non consécutif). Dans la deuxième feuille, J'ai les information sur ces contacts, c'est-à-dire les coordonnées du père, mère, soeur et frère pour chaque personne de la feuille 1.

le nombre de contact est différent pour tous. Donc, j'ai réussi a mettre le numéro de dossier dans la colonne A de la feuille2. Je désire que si la cellule Bn de la feuille1 est = à celle de la cellule Bm de la feuille2 et que la cellule Dm="NON" alors

il y a copie de Dm-3 à Dm-1 dans la première colonne disponible de la ligne n de la feuille 1.

Comme je vous dit, j'ai essayer plein de méthode, mais rien ne fonctionne. Je sollicite donc votre aide. En attendant votre réponse, je vais essayer à mon tour d'en aider quelques uns.

Merci et bonne journée :D

J'ai essayer le code suivant, mais ça ne fonctionne pas

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

With Sheets("Liste Urgence Final") For N = 2 To Sheets("Liste Urgence Final").Range("B" & .Rows.Count).End(xlUp).Row   For P = 1 To Sheets("RapportListeUrgenceXls").Range("A" & .Rows.Count).End(xlUp).Row     If Sheets("Liste Urgence Final").Cells(N, 2) = Sheets("RapportListeUrgenceXls").Cells(P, 1) And Sheets("RapportListeUrgenceXls").Cells(P, 7) = "NON" Then With Sheets("Liste Urgence Final") NewCol = .Range(.Column.Count & N).End(xlRight).Column + 1 End With Sheets("Liste Urgence Final").Range(NewCol & N).Value = Application.Transpose(.Range("D" & P - 2 & ":D" & P - 1).Value)     End If Next P   Next N

---

Merci de m'aider!!!