Microsoft 365 Signature manuscrite insérer sur une feuille excel

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
    Select Case True
    Case Target.Areas.Count > 1: Close_TabTip
    Case Not Application.Intersect(Target, Range("F3")) Is Nothing: Open_TabTip
    Case Not Application.Intersect(Target, Range("G3")) Is Nothing: Open_TabTip
    Case Not Application.Intersect(Target, Range("H3")) Is Nothing: Open_TabTip
    Case Not Application.Intersect(Target, Range("I3")) Is Nothing:
        Select Case True
            Case Target(1).FormulaR1C1 = "ü"
            Case Range("F3") = vbNullString
            Case Range("G3") = vbNullString
            Case Else
                Application.ScreenUpdating = False
                Set Usf_Sig.Source = Target
                Participant = Range("F3") & " " & Range("G3")
                Usf_Sig.Caption = "Signature de " & Participant
                Usf_Sig.Show
                If TypeName(Selection) = "Picture" Then
                    With Selection
                        .Name = "Sig_" & Participant
                        .OnAction = "'" & Me.Name & ".Supprimer_Signatures """ & Target.Address & """,""" & Participant & """'"
                        .ShapeRange.LockAspectRatio = msoFalse
                        .Height = Target.Height
                        .Width = Target.Width
                    End With
                    Range("I3").Font.Name = "Wingdings"
                    Range("I3").Font.Size = 9
                    Range("I3") = "ü"
                    Target.Select
                End If
        End Select
    Case Else: Close_TabTip
    End Select
End Sub