pout tous les onglets

[yolo]

bonjour,
comment appliquer cette macro a tout les onglets de mon fichier ?

Sub dec()

For i = 1 To 20
For j = 14 To 64
If Worksheets(i).Range("d" & (j)) Like "*,*" Then MsgBox "tot"
Next
Next
End Sub
cette macro recherche dans une colonne mles valeurs decimales ,la syntaxe est-elle bonne?
merci

 

[pyrof]

Bonjour,

voici un exemple:

Dim ws As Object
For Each ws In Worksheets
ws.Cells(1, 1).Value = "a"
Next ws