Difficulté d'affichage d'un Resultat de recherche dans un label

Bonjour,
Je souhaiterai avoir la solution pour l'impasse suivante:
click sur label1-UserForm4 (L1U4)
Affichage MsgBox "Mot ou Phrase à Chercher"
On tape ce qu'on doit chercher ----OK
La recherche doit se faire dans un classeur "GESTACHAT17D récent.xlsm" à plusieurs feuilles
Resultat:
1- Affichage du Nbres d'éléments Trouvés dans Label1 UserForm6 (L1U6)
2- Affichage "dans Label1 UserForm6" des cellules Trouvées avec leurs lignes corespondantes
________________________________________________________________

Private Sub Label11_Click()

Dim rech As String 'recherche d'une chaine
rech = InputBox("Mot à rechercher?", , "")
Dim Cel As Range   ' cellule trouvée
Dim c As Integer    ' colonne
Dim F As Integer   'Feuille
Dim l As Long       ' ligne
Dim n As String   ' éléments trouvés
n = 0
For F = 1 To Sheets.Count 'boucle Feuilles
With Sheets(F)
    l = 1: c = 1
     Do        ' recherche

Set Cel = .Cells.Find(What:=rech, after:=.Cells(1, 1), _
        LookIn:=xlValues, LookAt:=xlPart, _
        SearchOrder:=xlByRows, _
            SearchDirection:=xlNext, MatchCase:=False)

If Cel Is Nothing Then Exit Do
    If Cel.Column <= c And Cel.Column <= l Then Exit Do
        c = Cel.Column
        l = Cel.ROW
        n = n + 1       ' élément trouvé : traitement

Loop

End With

Next F
UserForm6.Label1.Caption = n & "éléments Trouvés"

End Sub

EDIT : Ajout des balises de code (la coloration syntaxique). Explications disponibles ici : ICI Merci d'y penser dans tes prochains messages.