Sub macroV3()
Dim classeur As Workbook, feuille As Worksheet, i As Long
On Error Resume Next
For Each classeur In Workbooks
For i = 1 To classeur.Worksheets.Count
With classeur.Sheets(i)
.Range("I:I,K:K,M:M,P:P,R:R,T:T").SpecialCells(xlCellTypeConstants).NumberFormat = "0.00%"
.Range("I:I,K:K,M:M,P:P,R:R,T:T").SpecialCells(xlCellTypeFormulas).NumberFormat = "0.00%"
End With
Next i
Next classeur
End Sub