Private Sub CommandButton1_Click()
Dim Plg, i%, j&, Tablo(), TabRow&, Cpt&, MaxTab&
Application.ScreenUpdating = False
Plg = Range(Cells(1, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 5)).Value
Cpt = UBound(Plg, 1)
MaxTab = Cpt * 4
Range(Cells(2, 9), Cells(MaxTab, 10)).ClearContents
ReDim Tablo(1 To MaxTab, 1 To 2)
For i = 2 To Cpt
For j = 2 To 5
'If Plg(i, j) <> "" Then ' possibilité de ne conserver que les cellules non vides
TabRow = TabRow + 1
Tablo(TabRow, 1) = Plg(i, 1) & "-" & Plg(1, j)
Tablo(TabRow, 2) = Plg(i, j)
'End If
Next j
Next i
Cells(2, 9).Resize(UBound(Tablo, 1), UBound(Tablo, 2)) = Tablo
Application.ScreenUpdating = True
End Sub