MErci de ton aide,
cependant j'ai pas grande experience en vb et c'est un peu chaud, je viens de le mettre en place comme je l'ai compris et ca ne passe pas
Private Sub Worksheet_Change(ByVal zz As Range)
'If zz.Address <> "$C$6" Then Exit Sub
'Sheets("feuil2").Range("C" & [match(A6,feuil2!A6:A65536,0)] + 5) = zz.Value
l = [match(A6,feuil2!A6:A65536,0)] + 5
c = l
While IsEmpty(Cells(l, c)) = False
c = c + l
Wend
Sheets("feuil2").Cells(l, c) = zz.Value
End Sub
Je ne dois pas rentrer le code convenablement....
Bon je persevere et je teste differentes possibilités
)
Si jamais quelqu'un voit une soluces je suis a l'ecoute!!
Meme d'une maniere differente!!
En te remerciant de ton post qui me permet d'avancer!!
@++
@lex