Je patauge sur le positionnement dans ma base (VBA)

Bonjour,
Je patauge.
Je souhaite écrire des valeurs dans une base après avoir trouvé la bonne ligne.
Je n'arrive pas à trouver et me positionner sur la bonne ligne
Voilà ce que j'ai écrit :
'**************************************************************************************************
'Récupération des données pour les enregistrer dans BDevis
Range("O7").Select
HT = ActiveCell.Value
Range("O8").Select
TVA5 = ActiveCell.Value
Range("O9").Select
TVA10 = ActiveCell.Value
Range("O10").Select
TVA20 = ActiveCell.Value
Range("O13").Select
Devis = ActiveCell.Value

'****************************************************************************************************
'Ouverture de la feuille BDevis
Sheets("BDevis").Select

'Se placer sur la cellule
Dim cel As Range
Set cel = Cells.Find(what:="Devis", lookat:=xlWhole)

'Enregistrement des valeurs du devis
ActiveCell.Offset(0, 20).Value = HT
ActiveCell.Offset(0, 21).Value = TVA5
ActiveCell.Offset(0, 22).Value = TVA10
ActiveCell.Offset(0, 23).Value = TVA20

Merci de votre aide