re macro

[paula]

bonjour le forum et merci herve pour ta macro

je voudrai faire une petite modiff sur cette macro
a chaque fois que je clic il me rajoute les info o dessus je cherche comment
faire pour remplacer a partir de la ligne 13 les infos

merci

Public Sub vev()
Dim c As Range
Dim ligne As Integer, colonne As Range

With Sheets("feuil2")
For Each c In Range("c7:c" & Range("c65000").End(xlUp).Row)
ligne = 13
Set colonne = .Range("c6:n6").Find(c.Value)
While .Cells(ligne, colonne.Column) <> ""
ligne = ligne - 1
Wend
.Cells(ligne, colonne.Column) = c.Offset(0, 1)
.Cells(ligne, colonne.Column + 2) = c.Offset(0, 2)
Next c
End With
End Sub

 

[Dan]

Bonsoir,

la suite c'est par ici : <http://www.excel-downloads.com/html/French/forum/messages/1_141479_141479.htm>

@+ Dan