XL 2010 user form à l'ouverture d'un fichier demandant à modifier une cellule

Bonsoir,
En VBA double-click sur ThisWorkbook (ici a gauche)
à la place de Général (à droite) sélectionner Workbook et encore à droite Open
on obtiens ceci
Private Sub Workbook_Open()

End Sub

une solution toute simple
Private Sub Workbook_Open()
Do
rep = InputBox("Indiquer la valeur de A10", "VALEUR", Feuil1.[A10])
If rep <> "" Then Exit Do
Loop
Feuil1.[A10] = rep
End Sub

Bruno

Excellent !!
merci beaucoup Bruno
je ne connaissais pas cette fonction
c'est parfait encore une fois