Macro suivant, précédent, valider

Sub Suivant()
'gestion du bouton suivant

Dim Trouve As Range'Déclaration de la variable Trouve permettant de mémoriser la cellule trouvée
'Recherche  par Find dans la colonne D du caractere X et mémorisation de cette cellule dans Trouve
Set Trouve = Sheets("Liste Client").Range("D:D").Find("X", lookat:=xlWhole)
'Si une cellule est trouvée
If Not Trouve Is Nothing Then
 'B5 = la cellule de la colonne B de la ligne ou l'on à trouvé le 1er X
  Range("B5") = Sheets("Liste Client").Range("B" & Trouve.Row)
 'C5 = la cellule de la colonne C de la ligne ou l'on à trouvé le 1er X
  Range("C5") = Sheets("Liste Client").Range("C" & Trouve.Row)
'Modifie le repere X en V afin de ne pas le prendre en compte lors de la recherche suivante
  Sheets("Liste Client").Range("D" & Trouve.Row) = "V"
 Else
 'Pas de X trouvé 
  Range("B5") = ""
  Range("C5") = "Plus de client"
End If
End Sub

'Idem qu'au dessus sauf que le caractére recherché est le V
' Si trouvé l'on le transformera à nouveau en X

Sub Précédant()
Dim Trouve As Range

Set Trouve = Sheets("Liste Client").Range("D:D").Find("V", lookat:=xlWhole, SearchDirection:=xlPrevious)
If Not Trouve Is Nothing Then
  Range("B5") = Sheets("Liste Client").Range("B" & Trouve.Row)
  Range("C5") = Sheets("Liste Client").Range("C" & Trouve.Row)
    Sheets("Liste Client").Range("D" & Trouve.Row) = "X"
 Else
   Range("B5") = ""
  Range("C5") = "Plus de client"
End If
End Sub

Sub Efface_Croix()
Dim Trouve As Range
'Recherche du nom actuellement affiche dans le masque 
Set Trouve = Sheets("Liste Client").Range("C:C").Find(Range("C5"), lookat:=xlWhole)
'Suppression des reperes de cette ligne 
  Sheets("Liste Client").Range("D" & Trouve.Row) = ""
End Sub