Je me heurte toujours à un probléme de comparaison et validation... une anomalie de syntaxe que je n'arrive pas à résoudre.
Je vous joins un exemple simplifié et j'espére que l'un de vous m'apportera ses connaissances.
Private Sub CommandButton1_Click()
Dim r As Variant
Set r = Union(Range("b5:b8"), Range("d5:d8")).Find(What:=[a3], LookIn:=xlValues, LookAt:=xlWhole)
If r Is Nothing Then [e3] = "faux": [a3] = "" Else [a4].Cut [e5]: [a3] = "": [e3] = ""
End Sub
ps: modifier en fin de compte tu as 2 plages non contiguées