Problème d'affichage d'un Userform

Bonjour à tous,

Je rencontre un problème dans ma programmation.

J'ai fais la partie ouvrant l'Userform correspondant au choix du Combobox, les contrôles à effectuer sur l'userform, mais c'est au moment de l'afficher que quelque chose plante.

Lorsque je lance le programme, il m'affiche une erreur 438 sur la ligne "Form.show"

Je vous met le code ci-dessous, si quelqu'un voit comment corriger ça je suis preneur !!

Merci d'avance :)

Private Sub OK_Click()
    If IsNumeric(Défauts.Value) Then
        Col = Rebut.Défauts.Value
        Code = Sheets(Référence.Value).Rows(1).Find(Col).Column 
        usf = Rebut.Référence.Value
        Set Form = UserForms.Add("P_" & Replace(usf, " ", ""))
        i = 2

        While Not IsEmpty(Sheets(Référence.Value).Cells(i, 1))
            With Form.Controls("Image" & i)
                If IsEmpty(Sheets(Référence.Value).Cells(i, Code).Value) Then  
                    Set .Picture = LoadPicture("D:\users\F97804C\Documents\Mission alternance\Photos\Photo produit\Pastille rouge.gif")
                Else
                    Set .Picture = LoadPicture("D:\users\F97804C\Documents\Mission alternance\Photos\Photo produit\Pastille verte.gif")
                End If
                i = i + 1
            End With
        Wend

        Form.Show
    Else
        MsgBox "Valeur de code incorrecte"
    End If
End Sub

Salut,

Je te renvoie vers ce topic de Sebastien :

https://forum.excel-pratique.com/astuces/la-fameuse-erreur-438-60484

Re

C'était bien ça effectivement, merci beaucoup !

Bonne journée