Selection cellules

Bonjour,

je vous sollicite de nouveau .

Dans le fichier joint, je parviens à me déplacer en début de ligne par rapport à une variable.

Je voudrais ensuite sélectionner les trois cellules suivants par déplacement sur la droite.

Dans l'exemple de macro j'arrive sur la cellule A6 et je voudrais ensuite sélectionner les cellules A6 à C6.

Comment procéder?

D'avance merci

Bonjour,

une proposition

Sub Trouve()
'
' trouve Macro
'
    Sheets("Données").Select
    Dim Trouve As Range
    num = "DEDE"
    Set Trouve = Sheets("Données").Columns(9).Cells.Find(What:=num, lookat:=xlWhole, LookIn:=xlValues)
    If Trouve Is Nothing Then
        MsgBox "CARTE INEXISTANTE", , "         SAISIE CARTE "
    Else
        Cells(Trouve.Row, 1).Resize(, 3).Select 'selection A-C de la ligne trouvée
    End If
fin:
    '
End Sub

Bonjour,

super merci beaucoup

Bonne fin de journée