Avec fonction "RECHERCHE" inséré image

Sub tri()
    Range("U30:AA33").Select
    Selection.Sort Key1:=Range("AA30"), Order1:=xlDescending, Key2:=Range( _
        "Z30"), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase _
        :=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _
        DataOption2:=xlSortNormal
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    
    Dim image As String
    Dim Sh As Shape
        
        If [U30] <> 0 Then
            image = ActiveWorkbook.Path & "\" & [U30] & ".jpg"
            Shapes("Rectangle 1").Fill.UserPicture image
        Else
            Shapes("Rectangle 1").Fill.Visible = msoFalse
        End If
    
        If [U31] <> 0 Then
            image = ActiveWorkbook.Path & "\" & [U31] & ".jpg"
            Shapes("Rectangle 2").Fill.UserPicture image
        Else
            Shapes("Rectangle 2").Fill.Visible = msoFalse
        End If
    
        If [U32] <> 0 Then
            image = ActiveWorkbook.Path & "\" & [U32] & ".jpg"
            Shapes("Rectangle 3").Fill.UserPicture image
        Else
            Shapes("Rectangle 3").Fill.Visible = msoFalse
        End If
    
        If [U33] <> 0 Then
            image = ActiveWorkbook.Path & "\" & [U33] & ".jpg"
            Shapes("Rectangle 4").Fill.UserPicture image
        Else
            Shapes("Rectangle 4").Fill.Visible = msoFalse
        End If
End Sub