[Résolu] Array pour stocker valeurs de chaque cellule du tableau

Dim Tablo
Tablo = sheets("Bios").range("A1").currentregion.value

Sub test()
Dim Tablo, i As Long, Wkb As Workbook
    Tablo = ThisWorkbook.Sheets("Bios").Range("A1").CurrentRegion.Value
    Set Wkb = Workbooks.Add
    For i = Wkb.Sheets.Count To 2 Step -1
        Application.DisplayAlerts = False
        Wkb.Sheets(i).Delete
        Application.DisplayAlerts = True
    Next i
    For i = 2 To UBound(Tablo, 1)
        Wkb.Sheets(i - 1).Name = Tablo(i, 1)
        Wkb.Sheets(i - 1).Range("A3").Value = Tablo(i, 2)
        Wkb.Sheets(i - 1).Range("B4").Value = Tablo(i, 3)
        Wkb.Sheets(i - 1).Range("E6").Value = Tablo(i, 4)
        If i < UBound(Tablo, 1) Then Wkb.Sheets.Add After:=Wkb.Sheets(Wkb.Sheets.Count)
    Next i
End Sub