Bloqué en VBA !

Je ferais ainsi:

    If wsSource.Range("D" & i).Value = "Achats" And wsSource.Cells(i, "A") = "" Then
        ' Obtenir la valeur de la colonne F de la source
        valeurF = wsSource.Range("F" & i).Value
        
        ' Trouver la première ligne vide dans la colonne F de la feuille "achats"
        dernièreLigne = wsCible.Cells(wsCible.Rows.Count, "E").End(xlUp).Row + 1
        
        ' Inscrire la valeur dans la première ligne vide
        wsCible.Cells(dernièreLigne, "E").Value = valeurF
        wsSource.Cells(i, "A") = "X"
    End If

Cela ne fait le travail que si la colonne A est vide, et la remplit après avoir fait le travail. (je n'ai pas testé)

Ce que j'ai proposé, c'est une adaptation d'une partie de ton code.

Sub dispatcher_opération()


    Dim i As Long
    i = 5 'débute à la ligne 5 pour D5
    'boucle jusqu'à ce que nous trouvions une cellule vide
    
    Do While Not IsEmpty(Range("D" & i).Value)
    'placer ici le code à exécuter
    
    
    Dim wsSource As Worksheet
    Dim wsCible As Worksheet
    Dim valeurF As Variant
    Dim dernièreLigne As Long
    
    ' Définir les feuilles
    Set wsSource = ThisWorkbook.Sheets("Banque") ' Remplacez par le nom de votre feuille source
    Set wsCible = ThisWorkbook.Sheets("Achats")
    
    ' Vérifier si la cellule D1 contient "achats"
    If wsSource.Range("D" & i).Value = "Achats" And wsSource.Cells(i, "A") = "" Then
        ' Obtenir la valeur de la colonne F de la source
        valeurF = wsSource.Range("F" & i).Value
        
        ' Trouver la première ligne vide dans la colonne F de la feuille "achats"
        dernièreLigne = wsCible.Cells(wsCible.Rows.Count, "E").End(xlUp).Row + 1
        
        ' Inscrire la valeur dans la première ligne vide
        wsCible.Cells(dernièreLigne, "E").Value = valeurF
        wsSource.Cells(i, "A") = "X"
    End If

    
    
    
    MsgBox "la valeur de D" & i & " est: " & Range("D" & i).Value
    
    'incrémenter le compteur de ligne
    i = i + 1
    Loop
    
    
End Sub

ne dispatcher que les nouveaux montants, c'est le but du second test dans l'instruction suivante, dans le code proposé plus haut:

If wsSource.Range("D" & i).Value = "Achats" And wsSource.Cells(i, "H") = "" Then

Soleil ici aussi.

Pour éviter de dupliquer tout le code, tu pourrais utiliser la valeur en colonne D pour déterminer la feuille de destination.  C'est surtout utile si tu as plus de deux feuilles de destinatons.