re,
Ok, clique droite sur la "Feuil1", choisis "visualiser le code"
dans la fenêtre , mets ce code :
Private Sub Worksheet_Change(ByVal Target As Range)
'macro Dan pour Paludot le 24/08/10
If Not Intersect(Target, Range("E" & Range("E65536").End(xlUp).Row)) Is Nothing Then
If Target.Offset(0, -2) <> "" Then
Sheets("Code " & Target).Range("C" & Sheets("Code " & Target).Range("C65536").End(xlUp).Row + 1) = _
Target.Offset(0, -2)
End If
End If
End Sub
Attention à la structure au nom des feuilles qui doivent toujours contenir un espace entre "Code" et le chiffre.
A te relire