Private Sub Cmd_Valider_Click()
Dim Adresse As String
Adresse = Txt_Adresse01.Text & "~" & Txt_Adresse02.Text & "~" & Txt_Adresse03.Text & "~" & Txt_CP.Text & "~" & Txt_Ville.Text
ActiveSheet.Cells(Ligne_Selectionnee, 3).Value = Adresse
Call Cmd_Annuler_Click
End Sub