Bonjour
je ne sais pas si j'ai tout compris
Code:
If ActiveSheet.Name = "Cat 01" Then
if Sheets("Liste").Cells(position + 2, 3) = "" then
Sheets("Liste").Cells(position + 2, 3) = ActiveCell
else
Sheets("Liste").Cells(position + 2, 3) = Sheets("Liste").Cells(position + 2, 3) & ";" & ActiveCell
end if
end if
bonne soirée
__________________
salutations
Wilfried
Plus j'apprends, plus je sais....... plus je sais que je ne sais rien.
Venez visiter mon zoo :
Cliquez ici il est si petit, un petit click quotidien merci