Macro ok pour 2003 mais pas 2007

Private Sub Worksheet_Change(ByVal sel As Range)
If Not Intersect(sel, Range("D8")) Is Nothing Then ' remplacer B1 par la cellule de saisie du numéro
    Dim rep As String
    rep = "C:\Users\Vincent\Pictures\École\Vincent-Marie\03 septembre 2007\"  ' remplacer par le chemin du répertoire photos

    With Sheets("Français") ' remplacer Français par nom de la feuille où l'on insère la photo
        .Activate
        .Range("C1").Select ' remplacer C1 par nom de la cellule où l'on insère la photo
        Dim photo As Object ' declaration variable image
        For Each photo In ActiveSheet.DrawingObjects ' boucle pour tous les objets
            If ActiveCell.Address = photo.TopLeftCell.Address Then
                photo.Delete ' on efface la photo précédente
            End If
        Next
        If Dir(rep & .Range("F2").Value & ".JPG") = "" Then
            .Range("C1").Value = "Pas de photo" ' test existance photo éléve
            MsgBox ("photo inexistante") ' ligne à supprimer pouréviter le message erreur
            Exit Sub
        End If
        .Pictures.Insert (rep & .Range("F2").Value & ".JPG")
    End With      ' remplacer F2 par nom de la cellule où l'on trouve le prénom

End If
End Sub