Sub WorksheetLoop2_testOK()
Dim maPlage As Range, i As Byte
Dim DernLigne As Long
For i = 1 To Worksheets.Count
With Sheets(i)
DernLigne = .Range("A" & Rows.Count).End(xlUp).Row
Set maPlage = .Range("A1:Z" & DernLigne)
.ListObjects.Add(xlSrcRange, maPlage, , xlYes).Name = "Tableau" & i
.ListObjects("Tableau" & i).TableStyle = "TableStyleLight9"
End With
Set maPlage = Nothing
Next i
End Sub