Fonction atteindre sur multiples onglets

Dim F As Worksheet
For Each F In ThisWorkbook.Worksheets
   CeQueJeSaisFaire
   Next F

Dim F As Worksheet, D As Shape
For Each F In ThisWorkbook.Worksheets
   For Each D In F.Shapes
      D.Delete
      Next D
   Next F

Dim F As Worksheet, D As Shape
For Each F In ThisWorkbook.Windows(1).SelectedSheets
   For Each D In F.Shapes
      D.Delete
      Next D
   Next F

Sub Atteindre()
    Dim tbl() As String    'Tableau des noms de feuilles sélectionnées
    Dim i As Integer    ' indice de boucle
'Dresser le tableau des noms de feuilles sélectionnées
    With ThisWorkbook.Windows(1).SelectedSheets
        ReDim tbl(1 To .Count)
        For i = 1 To .Count
            tbl(i) = .Item(i).Name
        Next
        'Sélectionne la première des feuilles
        .Item(1).Select
    End With
'Traiter les Shapes des feuilles l'une après l'autre
    For i = 1 To UBound(tbl)
        With ThisWorkbook.Sheets(tbl(i))
            Do While .Shapes.Count > 0
                .Shapes(1).Delete
            Loop
        End With
    Next
End Sub

Sub Atteindre()
Dim Fs As Sheets, F As Object, D As Shape
Set Fs = ThisWorkbook.Windows(1).SelectedSheets
Fs(1).Select
For Each F In Fs
   For Each D In F.Shapes
      D.Delete
      Next D
   Next F
End Sub