VBA, plusieurs feuille

Bonjour,

je voudrais savoir comment faire pour que le code que j'ai fonctionne sur 3 différentes feuilles mais une fois pour toutes.

le code que j'ai :

Dim intCol As Integer

For intCol = 1 To 3

Range(Cells(3, intCol), Cells(353, intCol)). _

SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp

Next intCol

End Sub

Et ça marche que sur la feuille active ( active cell).

Faut-il faire for each ? si c'est le cas comment répartir sur le code?

Merci

Bonjour RDRD, le forum,

Pour agir sur toutes les feuilles :

Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
    ' ta Macro
Next

Un exemple ci-joint où on écrit KO dans les cellules A1 de toutes les feuilles.

Cordialement,