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.

Il écrit qu'il manque un DO, parce qu'il manque un END IF.  Et donc il ne trouve pas le DO là où il l'attend.

Suggestion:

Option Explicit

Sub dispatcher_opération_Essai()
Dim i As Long, wsSource As Worksheet, wsCible As Worksheet, dernièreLigne As Long

' Définir les feuilles
Set wsSource = ThisWorkbook.Sheets("Banque") ' Remplacez par le nom de votre feuille source
i = 5 'débute à la ligne 5 pour D5
Do While Not IsEmpty(Range("D" & i).Value)
    ' Vérifier si la cellule D1 contient "achats" ou "caisse"
    If wsSource.Cells(i, "H") = "" And _
        wsSource.Cells(i, "D") = "Achats" Or wsSource.Cells(i, "D") = "Caisse" Then
        Set wsCible = ThisWorkbook.Sheets(CStr(wsSource.Cells(i, "D")))
        ' Trouver la première ligne vide dans la colonne E de la feuille de destination
        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 = wsSource.Cells(i, "F")
        wsSource.Cells(i, "H") = "X"
        MsgBox "la valeur de D" & i & " est: " & Range("D" & i).Value
    End If
    'incrémenter le compteur de ligne
    i = i + 1
Loop
End Sub

En me relisant, j'ai fait une erreur, voici un code plus correct:

Option Explicit

Sub dispatcher_opération_Essai()
Dim i As Long, wsSource As Worksheet, wsCible As Worksheet, dernièreLigne As Long

' Définir les feuilles
Set wsSource = ThisWorkbook.Sheets("Banque") ' Remplacez par le nom de votre feuille source
i = 5 'débute à la ligne 5 pour D5
Do While Not IsEmpty(Range("D" & i).Value)
    ' Vérifier si la cellule D1 contient "achats" ou "caisse"
    If wsSource.Cells(i, "H") = "" And _
        (wsSource.Cells(i, "D") = "Achats" Or wsSource.Cells(i, "D") = "Caisse") Then
        Set wsCible = ThisWorkbook.Sheets(CStr(wsSource.Cells(i, "D")))
        ' Trouver la première ligne vide dans la colonne E de la feuille de destination
        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 = wsSource.Cells(i, "F")
        wsSource.Cells(i, "H") = "X"
        MsgBox "la valeur de D" & i & " est: " & Range("D" & i).Value
    End If
    'incrémenter le compteur de ligne
    i = i + 1
Loop
End Sub

L'avant dernier code ne tenait pas compte du X en colonne H pour la Caisse.