Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim feuilles
feuilles = Array("surgeles", "frais", "sec", "bio", "divers")
If Not IsError(Application.Match(Sh.Name, feuilles, 0)) Then
If Target.Column = 1 Then
With Sheets("Liste").Cells(Application.Rows.Count, 1).End(3)(2)
.Value = Target
.Offset(, 1) = Target.Offset(, 8)
.Offset(, 2) = Target.Offset(, 9)
End With
End If
End If
End Sub