Sub Zonecombinée4_QuandChangement()
Dim R As Range 'déclare la variable R (Recherche)
'définit la recherche R (recherche la valeur exacte de la cellule F1 dans la colonne A
Set R = Columns(1).Find(Range("F1"), , xlValues, xlWhole)
'si il existe au moins une occurrence trouvée, sélectionne la première occurrence
If Not R Is Nothing Then R.Select
End Sub