Option Explicit
Sub InsererImages()
Dim lar As Double, hau As Double 'déclare les variables lar et hau
'pour la photo (tu avais inversé la source et la cible)
Sheets('Tableaux').Activate 'sélectionne l'onglet 'Tableaux'
On Error Resume Next 'évite le bug si 'photo' n'existe pas
ActiveSheet.Shapes('photo').Delete 'supprime la photo
lar = Range('BJ22').Left - Range('AG22').Left 'définit la variable lar
hau = Range('AG45').Top - Range('A22').Top 'définit la variable hau
Range('AG22').Select 'sélectionne la cellule AG22
'insère et sélectionne la photo dont le chemin est indiqué cellule D2 (onglet 'Rencontres')
Sheets('Tableaux').Pictures.Insert(Sheets('Rencontres').Range('D2').Value).Select
Selection.Name = 'photo' 'renomme la photo 'photo'
Selection.ShapeRange.Width = lar 'adapte la largeur de l'image
'si la hauteur dépasse, adapte la hauteur
If Selection.ShapeRange.Height > hau Then Selection.ShapeRange.Height = hau
Range('AG22').Select 'sélectionne la cellule AG22 (pour désélectionner l'image)
'pour les couleurs de 'Victoire / Défaite'
Dim Cel As Range 'deçlare la variable Cel
'boucle sur les 5 cellules AB23, AB27, AB31, AB35 et AB39
For Each Cel In Range('AB23,AB27,AB31,AB35,AB39')
'condition : la cellule (en MAJUSCULE) contient le mot 'VICTOIRE'
If UCase(Cel.Value) = 'VICTOIRE' Then
Cel.Offset(1, 0).Font.ColorIndex = 3 'couleur de police rouge pour la cellule en dessous
Else 'sinon
Cel.Offset(1, 0).Font.ColorIndex = 25 'couleur de police bleue pour la cellule en dessous
End If 'prochaine cellule de la boucle
Next Cel
End Sub