'insertion des valeurs sur la feuille
Dim T(1 To 1, 1 To 15)
T(1, 1) = civilite
T(1, 2) = Nom.Value
T(1, 3) = Prenom.Value
T(1, 4) = Adresse.Value
T(1, 5) = CodePostal.Value
T(1, 6) = Ville.Value
T(1, 7) = Telephone.Value
T(1, 8) = Mail.Value
T(1, 9) = electricite
T(1, 10) = Du.Value
T(1, 11) = Au.Value
T(1, 12) = Adulte.Value
T(1, 13) = Enfant.Value
T(1, 14) = Animal.Value
T(1, 15) = Emplacement.Value
Plage.Resize(1, 15).Value = T