Recherche 1ere cellule vide

Bonjour à toutes et à tous,

Je cherche à insérer une boucle dans une boucle (voir code si après). Je souhaite copier le nom de feuilles présentes dans une colonne (1ere partie du code) et insérer ce nom dans une cellule vide (2eme partie). Mais voilà je rencontre un problème car le nom de la feuille s'inscrit plusieurs fois alors que je désire le voir apparaitre qu'une seule fois puis passer au second nom. J'ai localisé le problème mais n'arrive pas à trouver la solution (Exit Sub ne convient pas car bien entendu cela arrête complètement la procédure).

Merci d'avance ... 🙂

'Report des noms des feuilles restantes
Dim R As Range
'Boucle sur chaque cellule de la plage NUM
For Each R In Range("R2:R309")
'Si la cellule contient la valeur <> "", on poursuit ....
If R.Value <> "" Then
Dim val As Variant
Dim f As Variant
f = R.Offset(0, 3).Value '3 colonne après le test
val = R.Offset(0, 2).Value '2 colonne apres le test
Sheets(f).Select

'inscription du nom dans la premiere cellule vide
lignes = Array(19, 22, 25, 28, 31, 34, 37)
colonnes = Array(4, 10, 16, 22)
For c = 0 To UBound(colonnes)
For l = 0 To UBound(lignes)
If Cells(lignes(l), colonnes(c)).Value = "" Then
Cells(lignes(l), colonnes(c)).Value = val
Cells(lignes(l), colonnes(c)).Offset(0, -1).FormulaR1C1 = "TRUE" '<-probleme ICI 😡
Exit For
Exit For
End If
Next
Next
End If
Next R