Erreur #91

Bonjour,
Voici mon problème:
Quand je clique sur le bouton "Choisir image" aussitot que que je choisi l'image, je rencontre cette erreur:

Object variable or with block variable not set) et il met en jaune cette ligne en astérix)

Private Sub ChoisirImage_Click()

Dim fichier As String
Dim image1 As Object
Dim var As String
Dim MyObject As Object
Dim image_path As Object
Dim MyCount As Object

• • • • image_path = Application.GetOpenFilename _

(FileFilter:="Picture Files(*.gif;*.jpg;*.jpeg;*.bmp), *.gif;*.jpg;*.jpeg;*.bmp", Title:="Choisir image", MultiSelect:=False)****

If image_path <> False Then
image1.Picture = LoadPicture(image_path)
image1.Visible = True
End If
var = CodeName.Text
SavePicture image1.Picture, ThisWorkbook.Path & "\" & "photos\" & var & ".jpg"

End Sub


Merci pour votre aide