Boucle pour modifier les cellules non vides

Bonjour à tous,
j'ai un petit soucis. J'ai un code qui rajoute des caractères à toutes les cellules non vides d'une colonne. Pour cela j'ai fait une boucle, mais j'ai pas mal de lignes dans mon fichier et au lieu de tester la condition sur chaque cellule (condition = cellule non vide), je voudrais aller directement de cellule non vide en cellule non vide, mais je ne vois pas bien comment faire. J'espère être assez clair !!

Voici le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub Checkcommentaire() 'Compte le nombre de lignes NbLig = Sheets("DETAIL DES REFS").Range("A" & Rows.Count).End(xlUp).Row NbLig = NbLig + 1 'Trouve et change les données 'Sheets("DETAIL").Select   For i = NbLig To 2 Step -1 If Sheets("DETAIL").Cells(i, 35).Value <> "" Then Sheets("DETAIL").Cells(i, 35).Value = Cells(i, 35) & " : ok" End If Next   End Sub

---

Je vous remercie par avance pour votre aide !

Avec un find ..

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Dim c As Range Dim p As Range 'plage de recherche Dim MemoPremier As String Set p = ThisWorkbook.Sheets("DETAIL DES REFS").Columns(1) ' définit plage de recherche 1° feuille, 1° colonne   Set c = p.Find("*", LookIn:=xlValues) If Not c Is Nothing Then MemoPremier = c.Address Do Debug.Print c.Address & " : " & c c = c & " : ok" Set c = p.FindNext(c) Loop While Not c Is Nothing And c.Address <> MemoPremier End If

---