If nomFeuille = "Agri2" Then
sheets(nomFeuille).Range("A1:J21").CopyPicture xlScreen, xlBitmap
Else
sheets(nomFeuille).Range("A1:G21").CopyPicture xlScreen, xlBitmap
End If
'colle l'image copiée précedement dans la diapositive
.Slides(IndexDiapo).Shapes.PasteSpecial ppPasteEnhancedMetafil