Sub Worksheet_Activate()
Dim NomFeuille$, NomCellule$, L%, i%, j%
NomFeuille = "Feuil1" ' Mettre ici le nom de la feuille concernée
NomCellule = "A2" ' Mettre ici la première cellule du tableau (en haut à gauche )
[A:B] = "" ' Colonnes où sont rangées les infos
Application.ScreenUpdating = False
Tablo = Sheets("Feuil1").Range(NomCellule).CurrentRegion
L = 1
For i = 1 To UBound(Tablo)
For j = 2 To UBound(Tablo, 2)
If Tablo(i, j) <> "" Then
Cells(L, "A") = Tablo(i, 1)
Cells(L, "B") = Tablo(i, j)
L = L + 1
End If
Next j
Next i
End Sub