Ecrire suivant l'état de différente CheckBox

Sub Valeurs()
    UserForm1.Show  
End Sub

Sub Lecture()
    UserForm1.Show
End Sub

Dim Flag

Private Sub CheckBox1_Click()
    If Flag = "" Then Call Ecrire
End Sub

Private Sub CheckBox2_Click()
    If Flag = "" Then Call Ecrire
End Sub

Private Sub CheckBox3_Click()
    If Flag = "" Then Call Ecrire
End Sub

Private Sub CommandButton1_Click()
    Unload Me
End Sub

Private Sub UserForm_Click()
    Call Ecrire
End Sub

Sub Ecrire()
    If CheckBox1 = True Then Texte1 = "Pomme "
    If CheckBox2 = True Then Texte2 = "Poire "
    If CheckBox3 = True Then Texte3 = "Abricot"
    Sheets("Feuil1").Range("D2").Value = Texte1 & Texte2 & Texte3
End Sub

Private Sub userform_initialize()
    Flag = 0
    v = Sheets("Feuil1").Range("D2").Value
    For n = 1 To Len(v) - 5
        If Mid(v, n, 5) = "Pomme" Then
            CheckBox1 = True
        ElseIf Mid(v, n, 5) = "Poire" Then
            CheckBox2 = True
         ElseIf Mid(v, n, 7) = "Abricot" Then
            CheckBox3 = True
        End If
    Next n
    Flag = ""
End Sub