Sub cartman()
'ici tu mets la feuille ou tu veux que cela se fasse
feuille = "Feuil3 (2)"
Sheets(feuille).Select
'ici tu met la cellule ou il y a la condition
produit = Cells(30, 3)
'ici tu met la premiere ligne x1 et la derniere ligne x2 de ton tableau
x1 = 7
x2 = 25
'idem avec les colonne
y1 = 3
y2 = 10
'ici tu met la ou tu veux que ca s affiche ligne et colonne
x_affichage = 29
y_affichage = 4
'début du traitement
For Z = y1 + 1 To y2
If Cells(x1, Z) = produit Then
For i = x1 + 1 To x2
If Cells(i, Z) <> 0 Then
Cells(x_affichage, y_affichage) = Cells(i, Z)
x_affichage = x_affichage + 1
End If
Next i
End If
Next Z
'fin traitement
End Sub