Appliquer ma macro sur certaines feuilles du classeur

Bonjour,

je n'arrive pas à trouver comment appliquer cette Macro sur certaine feuille de mon classeur ?

Sub Mag()
ActiveSheet.Range("A2:a31").Select
    Selection.ClearContents
Dim i As Integer
For i = 1 To 100
If Cells(i, 2) <> "" Then
    Cells(i, 1) = ActiveSheet.Name
End If
Next i
End Sub

Bonjour,

macro adaptée pour être appliquée sur toutes les feuilles sélectionnées. Pour sélectionner plusieurs feuilles, maintenir la touche ctrl enfoncée et cliquer gauche

Sub Mag()
For Each ws In ActiveWindow.SelectedSheets
 ws.Range("A2:a31").ClearContents
 For i = 1 To 100
  If ws.Cells(i, 2) <> "" Then
    ws.Cells(i, 1) = ws.Name
  End If
 Next i
Next
End Sub

Bonjour

Pour appliquer cette macro à toutes les Feuilles sauf "Feuil1"

Code à ajouter dans ThisWorkbook (Source Myta)

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
With Sh
If .Name <> "Feuil1"  Then
Call Mag
End If
End With
End Sub

Cordialement

Super ! mon problème est résolu, reste un détail que je vais régler moi même.

Merci à vous deux pour vos solutions !!!