bonjour jaimerai faire une msgbox pour modifier un labelle dans un serform et qui change aussi dans ma cellule 

puis quand je ferme ou ouvre a nouveau mon user form le nom a pas change 

exemple :

Private Sub Label1_Click()

Label1.Caption = feuil1.Range("A5")

Label1.Caption = InputBox("Entrez le nouveau nom du champ """ & feuil1.Range("A5") & """ :", "Modifier", Label1.Caption)

                'InputBox ( invite [ , titre ] [ , défaut ] [ , xpos ] [ , ypos ] [ , fichier d'aide ] [ , contexte ] )

If Label1.Caption <> "" Then

feuil1.Range("A5") = Label1.Caption

Label1.Caption = feuil1.Range("A5")

End If

End Sub

merci de votre aide