Sub PhotoCellule()
Dim largeur, a, i%
largeur = 83 'largeur de colonne, à adapter
ActiveSheet.DrawingObjects.Delete 'RAZ
If ActiveCell = "" Then End 'arrête toute macro
a = Array("ABUTILON :" & vbLf & vbLf & "Feuille" & vbLf & "Ses feuilles sont vertes, pointues et dentées." & vbLf & vbLf & "Fleur" & vbLf & "Ses fleurs sont constituées d'un calice renflé à cinq pointes, rouge pourpré et de pétales jaune clair d'où émerge un bouquet d'étamines violet foncé. Les fleurs ont un port tombant." & vbLf & vbLf & "Divers" & vbLf & "Il est sensible au gel et préfère, en période estivale, les emplacements ombragés.", _
"PERCE-NEIGE :" & vbLf & "Est une géophyte, c'est à dire que c'est une plante a bulbe, qui passe la majorité de l'année sous cette forme. C'est une vivace herbacée." & vbLf & vbLf & "Feuille" & vbLf & "Il n'y a que deux feuilles assez longues et assez fines, le bout de la feuille ressemble à une spatule de ski. Elles sont d'un vert glauque. Elles peuvent mesurer jusqu'a 20 cm." & vbLf & vbLf & "Tige" & vbLf & "Il n'y a qu'une tige qui porte l'unique fleur, elle dépasse nettement les feuilles, elle a une section ronde." & vbLf & vbLf & "Fleur" & vbLf & "La fleur est solitaire sortant d'une spathe membraneuse, elle est pendante comme une cloche et est formée par six tépales. Trois tépales blancs extérieurs bien visibles et 3 tépales blanc intérieurs très court et tâchés de vert." & vbLf & vbLf & "Odeur" & vbLf & "Plante et fleur sont inodores.", _
"CHEVREFEUILLE DES BOIS :" & vbLf & "Liane vivace de la famille des Caprifoliacées. Ses sarments s'entrelacent et s'étendent jusqu'à plus de 5 mètres. Elle se cultive par boutures. Certaines espèces sont plantées pour leur parfum." & vbLf & vbLf & "Feuille" & vbLf & "Ovales, corriaces, brillantes. Pétiolées à la base et sessiles vers le haut." & vbLf & vbLf & "Tige" & vbLf & "De couleur violette, les tiges s'entrelassent en torches. Elles gagnent en solidité." & vbLf & vbLf & "Fleur" & vbLf & "En boutons elles sont mauve-clair. Le blanc domine par la suite, les organes reproducteurs proéminents. Sont très odorantes. Floraison de juin à octobre." & vbLf & "Attention les fruits sont toxiques." & vbLf & vbLf & "Odeur" & vbLf & "Très odorante.")
For i = 0 To UBound(a)
If a(i) Like ActiveCell & "*" Then Exit For
Next
If i > UBound(a) Then End 'arrête toute macro
Application.ScreenUpdating = False
With Cells(Rows.Count, Columns.Count)
.ColumnWidth = largeur
.VerticalAlignment = xlTop
'.HorizontalAlignment = xlJustify 'facultatif
.Interior.ColorIndex = 24
.Font.Name = "Calibri"
.Font.Size = 11
.WrapText = True
.Cells = a(i)
.Copy
With ActiveSheet.Pictures.Paste
.Name = "Z1"
.PrintObject = False
End With
.Delete
End With
With ActiveSheet.UsedRange: End With
End Sub