Synthaxe boucle coordonnées de cellules contenant une valeur

Bonjour,

Je souhaiterais que mon code balaye toutes les cellules d'une feuille et qu'il me fasse une nouvelle feuille dans laquelle apparaissent les coordonnées des cellules ayant pour valeur la lettre F (ligne/colonne).

Ce code s'arrête à la première valeur trouvée, et je n'arrive pas à imaginer la syntaxe pour que celui-ci ne s'arrête pas à la première valeur qu'il trouve, mais qu'il balaye bien toute la feuille et qu'il me trouve toutes les cellules contenant la lettre F.
Pourriez-vous m'apporter votre aide sur mon problème ?

PS: je suis débutant en VBA, soyez indulgents ! ;)

Merci d'avance pour votre réponse

-----------------------------------------------------------


Sub trouve_cel_F()

Dim lettre As String
Dim celluletrouvee As Range
Dim ligne As Integer
Dim col As Integer

lettre = "F"
Set celluletrouvee = Range("A1:Y75").Find(lettre, lookat:=xlWhole) 'fonction qui cherche la lettre F


If celluletrouvee Is Nothing Then
MsgBox ("il n'y a pas de F dans cette feuille")

Else

ligne = celluletrouvee.Row
col = celluletrouvee.Column

'nouvelle feuille avec tableau, définition des titres des colonnes
Dim Planif As Worksheet
Set Planif = ActiveWorkbook.Sheets.Add
Cells(1, 1) = "Ligne"
Cells(1, 2) = "Colonne"


'insertion des valeurs (coordonnées dans le tableau)
Cells(2, 1) = ligne
Cells(2, 2) = col