Microsoft 365 utilisation conditionnelle des données d'un formulaire

Sub AjoutCourrierEntrant()
'
' AjoutCourrierEntrant Macro
'
    Dim FCible As Worksheet, derlg&
    Set FCible = Sheets("chrono arrivé")
    derlg = FCible.Cells(FCible.Rows.Count, "A").End(xlUp).Row + 1
    With Sheets("formulaire arrivé")
        If Application.CountA(.Range("D7,G7,D10,D13,D16")) = 5 Then
            FCible.Cells(derlg, 1) = "A"
            FCible.Cells(derlg, 2) = derlg - 1
            FCible.Cells(derlg, 3) = .[D7]
            FCible.Cells(derlg, 4) = .[D13]
            FCible.Cells(derlg, 5) = .[D10]
            FCible.Cells(derlg, 6) = .[G7]
            FCible.Cells(derlg, 7) = .[D16]
            .Range("D7,G7,D10,D13,D16").ClearContents
        Else
            MsgBox "Saisie incomplète" & vbLf & "Donnée non enregistrée", vbCritical, "Erreur"
        End If
    End With
End Sub

Sub AjoutCourrierDepart()
'
' AjoutCourrierDepart Macro
'
    Dim valeurs(1 To 1, 1 To 8)
    Dim NumDepart As Integer

    With ThisWorkbook
        '
        ' NumDepart = Max de la colonne + 1
        NumDepart = Application.Max(Sheets("Chrono départ").Range("T_Départs[n° de départ]")) + 1
        With .Sheets("formulaire départ")
            valeurs(1, 1) = "D"
            valeurs(1, 2) = NumDepart
            valeurs(1, 3) = .Range("D7")
            valeurs(1, 4) = .Range("D13")
            valeurs(1, 5) = .Range("G10")
            valeurs(1, 6) = .Range("D10")
            valeurs(1, 7) = .Range("D16")
            valeurs(1, 8) = .Range("G7")
        End With
        
        With .Sheets("Chrono départ").ListObjects("T_Départs")
            ' Ligne ajoutée en position 1 avec les valeurs collectée plus haut
            .ListRows.Add(1).Range.Value = valeurs
            ' Copier le format de la dernière ligne
            .ListRows(.ListRows.Count).Range.Copy
            ' le coller en ligne 1
             .ListRows(1).Range.PasteSpecial xlPasteFormats
        End With
        ' Enlève la marquise de sélection autour de la zone copiée
        ' vide le presse-papier
        Application.CutCopyMode = False
        '
        ' signaler à l'utilisateur que le courrier à bien été enregistrer
        ' et lui demander s'il veut effacer les données
        If MsgBox("le courrier au départ a bien été enregistré sous le numéro : " & NumDepart _
                    & vbCrLf & vbCrLf & _
                    "Effacez les données du formulaire ?", _
                    vbYesNo, _
                    "Saisie courrier au départ") = vbYes Then
                '
                ' Vider les cellules du formulaire si la réponse est oui
                ' Déprotéger la feuille en premier puis la reprotéger
                With .Sheets("Formulaire départ")
                    .Unprotect
                    .Range("$D$7,$D$10,$D$13,$D$16,$G$7,$G$10") = Empty
                    .Protect
                End With
        End If
        
    End With
  
End Sub