Test cellules non vides

Bonjour,

Je cherche à trouver sur Excel 2010, grâce au VBA, l'information suivante:

Sur la feuille Données, soit "s", si AI, colonne 35, est renseignée avec Filiale, et que AL, 38, est vide, me le notifier sur la feuille Trous, soit "c", en P, colonne 16.
Voila mon code:

Sub trous()
Set s = Sheets("Données")
Set c = Sheets("Trous")
scp = c.Cells(1, 1)
kp = c.Cells(1, 15)
c.Range("A2:AA65000").ClearContents
c.Range("A2:AA65000").Interior.ColorIndex = xlNone
lc = 2
k = 0

If s.Cells(ls, 35) <> "Filiale" And s.Cells(ls, 38) <> "" Then
test1 = 1
k = k + 1
Else
c.Cells(lc, 16) = s.Cells(ls, 38)
c.Cells(lc, 12).Interior.ColorIndex = 3
If c.Cells(lc, 16) = "" Then c.Cells(lc, 16) = "vide"
End If


Je veux que le code me permettent d'identifier les cases non renseignées, mais je récupère également des cases renseignées ... Je pense


ligne 215 vide
ligne 244 SIS
ligne 247 SIS
ligne 268 vide

Voila par exemple ce que je récupère sur ma feuille trous.

Pouvez-vous m'aider, grâce aux renseignements que je vous ai donné ?


Merci beaucoup,

SA