Public Function SauveD()
'Dim r
'Anomalies.Cells(DES, 8) = hotNewSign.Réf
Anomalies.Cells(DES, 2) = Hôt_Signalement.OptM
Anomalies.Cells(DES, 2) = Hôt_Signalement.OptV
Anomalies.Cells(DES, 3) = Hôt_Signalement.SignDate
Anomalies.Cells(DES, 4) = Hôt_Signalement.PlateForme
Anomalies.Cells(DES, 5) = Hôt_Signalement.NomTS
Anomalies.Cells(DES, 6) = Hôt_Signalement.Nomhôtel
Anomalies.Cells(DES, 8) = Hôt_Signalement.NomFamille
Anomalies.Cells(DES, 9) = Hôt_Signalement.CléLien
Anomalies.Cells(DES, 10) = Hôt_Signalement.Désignation
Anomalies.Cells(DES, 11) = Hôt_Signalement.DateSignalement
Anomalies.Cells(DES, 12) = Hôt_Signalement.OptOui
Anomalies.Cells(DES, 12) = Hôt_Signalement.OptNon
Anomalies.Cells(DES, 13) = Hôt_Signalement.DatePrise
Anomalies.Cells(DES, 14) = Hôt_Signalement.Commentaire