Fltre tableau

Bonjour à tous, j'ai besoin d'un petit coup de mains.

J'ai un tableau avec 21 colonnes. J'ai créé une macro permettant de filtrer 4 colonnes. Jusque là pas de problème.

Puis j'ai créé un macro permttant de remplir les cellules de la colonne "O". Le seul problème c'est que ma macro rempli toutes les cellules de ma colonne alors que je voudrais modifier uniquement les cellules de la Colonne "O" visible après le filtrage.

With Sheets("Données")

Dim cellule As Range
For Each cellule In Range("o2:o" & Range("o65536").End(xlUp).Row)
cellule.Value = cellule.Value & Chr(10) & (Format(Now, "dd/mm/yy hh:mm")) & " (Vh)"
Else
cellule.Value = (Format(Now, "dd/mm/yy hh:mm")) & " (Vh)"
End If
Next cellule

Merci de votre aide et bonne journée à tous

Bonjour,

tu ferais mieux de poster ton fichier et mettre un exemple du résultat attendu car tu as plusieurs commandes écrites de façon erronée

Bonjour,

Ci-Joint, le lien vers mon fichier excel. Dans l'onglet "Données" tu trouveras le tableau trié.

Merci pour ton aide

@+

Teste ce code et vois si ça te convient

Sub try()
With Sheets("Données")
Dim derLig As Long
derLig = .Range("A" & Rows.Count).End(xlUp).Row
For a = 2 To derLig
If .Cells(a, "O").Rows.EntireRow.Hidden = False Then
.Cells(a, "O") = .Cells(a, "O") & Chr(10) & (Format(Now, "dd/mm/yy hh:mm")) & " (VH)"
Else
.Cells(a, "O") = Chr(10) & (Format(Now, "dd/mm/yy hh:mm")) & " (VH)"
End If
Next a
End With
End Sub

Bonjour, désolé pour la réponse tardive.

Merci pour ta proposition de code, mais celui-ci ne marche pas. Mais ce n'est pas grave car j'ai réussit à monter mon bout de code

Dim Cellule As Range
Dim MyRng As Range
Dim Derlig As Long
Dim Ligne As Long

With Sheets("Données")

Derlig = .Range("a" & Rows.Count).End(xlUp).Row
    Set MyRng = .Range("O2:O" & Derlig)
    For Each Cellule In MyRng.SpecialCells(xlCellTypeVisible)
    If Cellule.Value <> "" Then
Cellule.Value = Cellule.Value & Chr(10) & (Format(Now, "dd/mm/yy hh:mm")) & " (Vh)"
Else
If Cellule.Value = "" Then
Cellule.Value = (Format(Now, "dd/mm/yy hh:mm")) & " (Vh)"
End If
End If
Next Cellule

Par contre , dans ma listebox, je n'arrive pas à faire apparaitre le résultat du filtre. Il m'affiche toutes les lignes.

Je remets le lien ci-dessus de mon fichier.

D'avance merci et bonne journée

désolé, je passe la main, je ne sais pas utiliser les USF...