décaler données dans cellule

[David]

Bonjour le forum,


Sub test()
Dim i As Integer
Range("b1").Select
i = 0
While ActiveCell.Offset(0, -1).Value And ActiveCell.Offset(0, 0).Value <>
""
ActiveCell.Offset(0, 1).Select
Wend
If ActiveCell.Offset(0, -1).Value And ActiveCell.Offset(0, 0).Value = ""
Then
ActiveCell.Value = 2
End If
End Sub


Voilà, j'importe d'access des données chaque mois en cellule a1 et
selectionne la cellule b1 à la fin de mon import
le mois suivant, la condition est :
si la cellule active et la cellule active-1 est différente de vide, alors,
déplacement d'une colonne vers la droite de telle sorte qu'il me faut 2 cellules vides;
si deux cellules vides, alors insertion des nouvelles données
activecell.value = 2, c'était juste pour voir ou je retrouvais la valeur
soit, malheureusement dans ce cas, la cellule après.
La deuxième petite question est, par quoi remplacer le .value afin que pour la condition, il prenne en compte tout car si en b1 j'ai "titi", je me retrouve avec une erreur.
Cette façon de procéder me permet de définir un nom pour une selection afin
de renseigner un tableau qui se trouve dans une autre feuille
Je vous remercie