Variable texte en marco sous excel

Bonjour,
Je cherche comment copier le contenu (du texte) de ma cellule dans une variable pour pourvoir faire des test après avec, pour l'instant je ne fais qu'un copier coller mais je n'y arrive pas. Je pense que je défini mal la variable au départ mais je ne sais pas quoi mettre. Voici ma macro :

Sub test()
'
' test Macro
'

Dim X As Long 'ligne
Dim Y As Long 'colonne
Dim nd As Long 'numéro de dossier
Dim dt As Date 'date de l'examen
Dim dc As Long 'campagne problème

Y = 3 'colonne
Do Until J = 6
X = 2 'ligne
Do Until X = 5
If Cells(X, Y).Interior.ColorIndex = 3 Then
nd = Cells(X, 2).Value
dt = Cells(X, 3)
dc = Cells(X, 4)'problème
Cells(X, 6) = nd
Cells(X, 7) = dt
Cells(X, 8) = dc'problème
End If
X = X + 1
Loop
Y = Y + 1
Loop
'
End Sub