Sub Recup_Zone_Text()
Dim F As Worksheet, Sh As Object, K&, TabloReport(), Var&
K = 0
For Each F In Worksheets
If F.Name <> "Zones de texte" Then
Var = 0
For Each Sh In F.Shapes
If Sh.Name = "Z1" Then
Var = Var + 1
K = K + 1
ReDim Preserve TabloReport(1 To 2, 1 To K)
TabloReport(1, K) = F.Name
TabloReport(2, K) = Sh.TextFrame.Characters.Text
End If
Next Sh
If Var = 0 Then
K = K + 1
ReDim Preserve TabloReport(1 To 2, 1 To K)
TabloReport(1, K) = F.Name
TabloReport(2, K) = "Aucune zone de texte"
End If
End If
Next F
If K <> 0 Then _
Sheets("Zones de texte").Cells(4, 1).Resize(K, 2) = _
Application.Transpose(TabloReport)
End Sub