VBA Copie d'image en fonction de la valeur de la cellule

Sub test()
Dim sheetShapes As Worksheet, iRow As Long, laShape As Shape, sheetPoules As Worksheet
Set sheetShapes = ThisWorkbook.Sheets("Equipes")
Set sheetPoules = ThisWorkbook.Sheets("Phase de poules")

On Error Resume Next
For iRow = 9 To 104
Set laShape = Nothing
Set laShape = sheetShapes.Shapes(sheetPoules.Range("F" & iRow).Text)
If Not laShape Is Nothing Then
laShape.Copy
sheetPoules.Paste
With sheetPoules.Shapes(sheetPoules.Shapes.Count)
.Left = sheetPoules.Range("H" & iRow).Left + ((sheetPoules.Range("H" & iRow).Width - .Width) / 2)
.Top = sheetPoules.Range("H" & iRow).Top + ((sheetPoules.Range("H" & iRow).Height - .Height) / 2)
End With
End If
Next iRow
On Error Resume Next
End Sub

Sub CopyLogos()
Dim NomEquipe As String, NumLigne As Integer, S As Shape
For Each Cell In Sheets("Phase de poules").Range("F9:F104")
    NomEquipe = Cell.Value
    NumLigne = Cell.Row
    For Each S In Sheets("Equipes").Shapes
        If S.Name = NomEquipe Then
            S.Copy
            Range("G" & NumLigne).Select
            ActiveSheet.Paste
        End If
    Next
Next
End Sub