Bonjour
Supprimez :
Private Sub CommandButton1_Click()
End Sub
Qui est placé au dessus de option explicit
Sinon excel ne sait pas quelle macro executer lors d'un click sur le CommandButton1
Unload Me: GoTo
GoTo = aller à
traduction du code écrit : " fermez la boite de dialogue et aller à"
--> Aller où ?
1 End If
A vérifier mais il manque peut-être les deux points après le 1 --> 1: End If