Sub Macro1()
Dim sh As Worksheet
Application.ScreenUpdating = False
For Each sh In Sheets(Array("Feuil2", "Feuil3", "Feuil5"))
With sh
For i = .Range("A65535").End(xlUp).Row To 1 Step -1
.Rows(i).Hidden = .Cells(i, 38).Value = 0
Next i
End With
Next
Application.ScreenUpdating = True
End Sub