si cellule non vide, va à la ligne en-dessous

Bonsoir à tous


Dans la macro ci-dessous, je rentre un intervalle de dates dans 2 textbox et pour toutes les dates comprises dans cet intervalle, un texte s'affiche dans une plage de cellules déterminées (en l'occurence (48, i)).

Je souhaiterai rajouter une condition. c.a.d que si l'une des cellules de la ligne (48,i) est non vide alors le message s'affiche sur la ligne en-dessous et ainsi de suite.

Si quelqu'un peut m'aider à effectuer cette modif ce serait génial

Merci d'avance
Régis

Code:
Private Sub CommandButton2_Click()
Dim ws As Worksheet
Dim d3 As Date


d1 = TextBox1.Value
d2 = TextBox2.Value


For Each ws In ActiveWorkbook.Sheets
ws.Activate ' rend active la feuille ws en cours de recherche
Dim i As Integer
For i = 2 To 10 Step 2
If Not ActiveSheet.Cells(8, i).NumberFormat = 'dddd dd' Then GoTo line2 ' renvoi en fin de boucle si le format n'est pas le bon
d3 = ActiveSheet.Cells(8, i)
If d3 sup d2 Then GoTo line3
If d3 INF ou EGAL d2 And d3 SUP ou EGAL d1 Then
ActiveSheet.Cells(48, i).Value = TextBox3.Value
End If
Next i

line2: ' definition d'un index
Next ws
line3:
End Sub