Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
Set fa = ActiveSheet
If Target.Address = "$D$2" Then
fa.Range("C5:E" & Application.Max(5, fa.Range("C" & Rows.Count).End(xlUp).Row)).ClearContents
k = 0
For Each f In Worksheets
If Left(f.Name, 3) = "AC." And f.Name <> "AC. Deco" And f.Name <> "AC. Emballage" Then
SELECTIONNER LIGNES 2 ET 3 DE LA FEUILLE AC EN COURS, LES COPIER
COLLER DANS FEUILLE BIDON LIGNE 1 ET 2 EN COLLER VALEURS
UTILISER CES DEUX LIGNES POUR LE TRANSFERT DANS TABLO.
' A MODIFIER : tablo = f.Range(f.Cells(2, 1), f.Cells(3, f.Cells(2, Columns.Count).End(xlToLeft).Column))
For j = 2 To UBound(tablo, 2) Step 5
ReDim Preserve tabloR(1 To 3, 1 To k + 1)
tabloR(1, k + 1) = tablo(2, j)
tabloR(2, k + 1) = IIf(IsError(tablo(1, j + 2)), "'-", tablo(1, j + 2))
k = k + 1
Next j
End If