Erreur 1004 vba excel

Bonjour,

bon voila j'ai fait une macro et je dois sélectionner une cellule pour contrôler si elle vide où non.

j'utilise cette commande : Range(Cells(10, 2)).Select => là ça bug
quand j'utilise : Range("J2").Select => là ça passe :(
je peux pas utiliser la seconde méthode par ce que je souhaite l'introduire dans une boucle for.

voici tout le code

Private Sub transfert_Click()
Dim i, j As Double
Dim f, g As Double
Dim leer As Boolean

'======================= suchen die daten - recherche des données =======================
'control dass es ein datei gibt - contôle de présence de fichier
If classeur1 = vide Then Exit Sub
If classeur2 = vide Then Exit Sub

'öffnen der Datei .csv - ouverture du fichier .csv
Workbooks.Open Filename:=classeur1

'Kopieren die daten von der datei .csv - copier les données du fichier .csv
Cells.Select
Selection.Copy

'öffnen der Datei .xls - ouverture du fichier .xls
NameFichier = ActiveWorkbook.Name
Workbooks.Open Filename:=classeur2

'einfügen die daten in der datei .xls - coller les données dans le fichier .xls
Cells.Select
ActiveSheet.Paste

'schliessen die datei .csv - fermer le fichier.csv
Workbooks(NameFichier).Close

'konvertieren den string -> Koolonne - convertir les chaînes de caractère -> colonne
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, Semicolon:=True


'====================== Datenverarbeitung - traitement des données ======================

'Definit le nbr de ligne et de colonne de la liste
f = ActiveSheet.UsedRange.Columns.Count
g = ActiveSheet.UsedRange.EntireRow.Count

'leer = 1
'For i = 2 To 256
' link_xls.Text = i
' If Cells(10, 2) <> 0 Then
' leer = leer + 1
' link_csv.Text = leer
' End If
'Next

'If leer = 0 Then
Range(Cells(10, 2)).Select
'Range("J2").Select
If Selection = "" Then
Columns(10).Select
Selection.Delete
End If
End Sub


ps : j'en ai besoin pour un projet au boulot et j'utilise excel 2000, mais il bug aussi chez moi avec excel 2003.

En espérant que vous pourrez m'aider.