Bonsoir
voir en pièce jointe
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
Salut
Hervé