XL 2013 Automatisation de la Saisie et de l'Affichage des Textes dans une plage

Sub CopierTexte()

    Dim SourceCell As Range
    Dim TargetCell As Range

    ' Définir la cellule source
    Set SourceCell = Range("D3")

    ' Trouver la première cellule vide après D9 dans la colonne D
    Set TargetCell = Range("D10")
    Do While Not IsEmpty(TargetCell)
        Set TargetCell = TargetCell.Offset(1, 0)
    Loop

    ' Copier le texte de D3 dans la cellule cible trouvée
    TargetCell.Value = SourceCell.Value
    
    ' Efface les données de D3
    Range("D3").ClearContents
End Sub

Sub ValiderEtCopier()
Dim Derlig&
Derlig = Range("D" & Rows.Count).End(xlUp).Row + 1
If Derlig <= 10 Then Derlig = 10
Range("D" & Derlig) = Range("D3").Value
Range("D3").Value = ""
End Sub

Sub Effacer()
Range("D3").Value = ""
End Sub

Sub Valider()
With Range("D10:D" & Rows.Count)
    If Application.CountIf(.Cells, [D3]) Then [D5] = "Ce texte existe déjà": Exit Sub
    [D5] = ""
    If .Cells(1) = "" Then
        .Cells(1) = [D3]
        .Cells(1).Name = "Cible"
    Else
        With .Find("", , xlValues)
            .Value = [D3]
            .Name = "Cible"
        End With
    End If
    [D3] = ""
End With
End Sub

Sub Annuler()
On Error Resume Next
With Range("Cible")
    [D3] = .Value
    .Value = ""
End With
End Sub