Set Sh = .Slides(i + 1).Shapes.AddTable(1, 2, 40, 100, 650, 350)
For j = 1 To 2
With Sh.Table.Cell(i, j + 1).Shape.TextFrame.TextRange ' j+1 =>colonne B (2) puis C (3)
.Text = ThisWorkbook.ActiveSheet.Cells(i, j).Text
.ParagraphFormat.Alignment = ppAlignCenter
End With
Next j
End With