Me.DenominationInst.SetFocus
ActiveCell.Value = Application.Proper(Me.DenominationInst)
ActiveCell.Offset(0, 1).Value = Me.Adresse1Inst
ActiveCell.Offset(0, 2).Value = Me.Adresse2Inst
ActiveCell.Offset(0, 3).Value = Me.Adresse2Inst
ActiveCell.Offset(0, 4).Value = Me.CPInst