voici une façon de selectionner ta cellule
Dim nbr As Integer
Dim dercell As Integer
'nbr correspond au numero de la derniére cellule non vide
nbr = Range('B65536').End(xlUp).Row
dercell= nbr + 1
Range('B' & dercell).Select
'tu pouura tester en ajoutant la ligne qui suit
Range('B' & dercell).value='test effectué'
ce qui aura pour consequence d'inscrire' test effectué 'dans la premiere cellule vide de la colone B.