VBA Loop colonne filtrée récupération valeurs à partir critères

Bonjour à tous,

Je poste aujourd'hui ici concernant une certaine procédure que j'aimerais automatiser vu que je l'effectue de manière quotidienne et ça commence à être rébarbatif...

J'ai mis un petit fichier exemple sur le lien suivant:
https://www.cjoint.com/c/EAgmHnhtafn

Comme vous pouvez le voir sur le fichier, je souhaitais récupérer à partir de la colonne C tous les bonhommes qui ont été en retard sur la journée du 01-janv.

A partir de là, j'aurais souhaiter qu'en cellule D1, la macro m'écrive "1 retard pour Jean-Pierre et 1 retard pour Louis".

J'ai donc essayé de constituer la macro en fonction de ce que j'ai trouvé sur le net comme suit:

Function GetValue(row As Integer, col As Integer)
GetValue = ActiveSheet.Cells(row, col)
End Function

Sub Ponctualité()
Dim cl As Range, rngCLC As Range
Dim cellval As String

Set rngCLC = Range("C3:C100")
For Each cl In rngCLC.SpecialCells(xlCellTypeVisible)
cellval = GetValue(row:=cl.row, col:=1)
If cl.Value > 0 Then Range("D1") = cl & " retard pour " & cellval & conc
conc = cl & " retard pour " & cellval
Next cl
End Sub


Les points de blocages sont les suivants:
1. Set rngCLC=Range("C3:C100") : Comment faire que ce range soit dynamique afin que si je dépasse les 100 cela fonctionne encore, la fonction xldown semblait bien mais j'ai une ligne de totale qui doit être gardé et qui est malheureusement intégrée par la macro et donc cela me rajoute "2 retard pour total". De plus, j'ai des cellules qui peuvent être vide et xldown s'arrête au mauvais endroit.

2. If cl.Value > 0 Then Range("D1") = cl & " retard pour " & cellval & conc
conc = cl & " retard pour " & cellval
Ici, la fonction fonctionne bien jusqu'à ce que j'arrive à Fred et total car la macro me les intégre et remplace le résultat précédemment juste "1 retard pour Jean-Pierre et 1 retard pour Louis".
Comment faire pour que si la cellule est vide, que la macro ne le prenne pas en compte.


Si quelqu'un pouvait m'aiguiller s'il vous plaît, j'apprécierais grandement!

Merci d'avance

Bonne journée

Yrmouf