Sub Importer_Nouveau_Jeu()
Dim tb()
tb = sh_NJD.UsedRange.Resize(, 3)
Application.ScreenUpdating = False
With [Tb_1]
.ClearContents
.ListObject.Resize .ListObject.Range.Resize(UBound(tb) + 1)
.Resize(UBound(tb), 3) = tb
.Columns(4).Resize(UBound(tb)) = "=REPT(""x"",RC[-2]&RC[-1]<>"""")"
End With
End Sub