XL 2019 Insertion automatique image

Private Sub Worksheet_Activate() 'Quand on ouvre la feuille, réaffiche les photos
Dim c As Range, sh As Shape


Application.ScreenUpdating = False 'on gèle l'affichage
For Each sh In Feuil1.Shapes
  sh.Delete 'on efface les images de la feuille écurie
Next
For Each sh In Feuil27.Shapes                                      'On regarde toutes les images de la feuille
  If sh.TopLeftCell.Column = 11 Or sh.TopLeftCell.Column = 12 Then                     'Si l'image se trouve en colonne K ou L
    If Not IsError(Application.Match(Feuil27.Range("J" & sh.TopLeftCell.Row), Feuil1.Range("C4:C13"), 0)) Then 'si l'image doit être copiée vers la feuille Ecurie
      sh.Copy   'on la copie
      Feuil1.Range("B3").Offset(Application.Match(Feuil27.Range("J" & sh.TopLeftCell.Row), Feuil1.Range("C4:C13"), 0), 0).PasteSpecial      'vers la feuille écurie, en face de l'écurie
    End If
  End If
Next
For Each sh In Feuil1.Shapes
  sh.Height = sh.TopLeftCell.Height 'on ajuste les tailles des images
Next
Application.ScreenUpdating = True 'on affiche le résultat
End Sub