Private Sub Worksheet_Activate()
Dim Données As Collection, TR()
Set Données = Gigogne(TableUnique(Me, WshSuivCmd), 1)
ReDim TR(1 To Données.Count, 1 To 13)
End Sub
Option Explicit
Private Sub Worksheet_Activate()
Dim Données As Collection, TR()
Set Données = Gigogne(TableUnique(Me, Tabcols(WshSuivCmd, 1, 4, 5), 1)) 'colonne a copier de la feuille
ReDim TR(1 To Données.Count, 1 To 13) 'nombre de colonne tu tableau de la feuille wshentreesortie
End Sub