Set cellule = Range("A1:D4").Find("G", LookIn:=xlValues)
Set à_sélectionner = Range(cellule.Address)
For i = 1 To Range("A1:D4").Count
Set cellule = Range("A1:D4").FindNext(cellule)
Set à_sélectionner = Union(à_sélectionner, Range(cellule.Address))
Next
à_sélectionner.Select

Merci beaucoup, c'est tout à fait ce que je recherchais.

Cependant il me reste un problème : J'ai différentes variables à tester et il se peut que quand je lance ma macro certaines ne soient pas encore référencées et pour l'instant quand j'exécute ce code j'ai un message qui apparait ("variable objet ou variable de bloc with non défénie") lorsqu'il cherche des variable non référencer.

Comment je peut faire pour que cette partie du code soit ignorer si la variable rechercher n'est pas référencées et que le reste continu à s'exécuter?

Pour tester une variable référencée : if not isempty(variable)

Merci, mais où dois-je le palcer dans le code pour que sa fonctionne?

Si la variable est par exemple : var1
if not isempty(var1) then
----- code faisant référence à var1 ------
end if