Microsoft 365 VBA modifier contenu objet mail / corps de texte selon condition

Sub test_IIF()
Dim r As Range
Set r = ThisWorkbook.Worksheets(1).[H3]
r = "NUIT"
X = IIf(r = "NUIT", "toto", "titi")
MsgBox X
r = "JOUR"
X = IIf(r = "NUIT", "toto", "titi")
MsgBox X
End Sub

Set r = ThisWorkbook.Worksheets(1).[W8]


r = " NUIT"

Texte = Texte & "Bonjour," & vbCrLf
Texte = Texte & vbCrLf
Texte = Texte & "Ci-dessous le Rapport + plan du " & " " & Sheets("Rapport").Range("D8").Value & " " & IIf(r = " NUIT", Sheets("Rapport").Range("L8").Value - 1, Sheets("Rapport").Range("L8").Value) & " " & " au " & " " & Sheets("Rapport").Range("L8").Value & " " & Sheets("Rapport").Range("W8").Value & vbCrLf
Texte = Texte & vbCrLf
Texte = Texte & "Cordialement" & vbCrLf

Sub test_II()
Randomize 1600
X = Chr(Application.RandBetween(65, 67))
Select Case X
Case "A"
MsgBox "Jour", vbCritical, X
Case "B"
MsgBox "Nuit", vbExclamation, X
Case "C"
MsgBox "Entre chien et loup", vbInformation, X
End Select
End Sub

Sub Test_Cambouis()
Dim r As Range
Set r = Sheets(1).[W8]
x = Application.RandBetween(1, 2) ' ne sert que pour le test
r = Choose(x, "JOUR", "NUIT") ' ne sert que pour le test
Select Case r
Case "JOUR"
Message = "Ci-dessous le rapport + plan du xx/xx/xxxx " & r.Text
Case "NUIT"
Message = " Ci-dessous le rapport + plan du xx/xx/xxxx au xx/xx/xxxx " & r.Text
End Select
MsgBox Message, 64, r.Text
End Sub