Erreur Range dans un code

Bonjour

J'essais d'ajouter une fonction dans un code

mais çà ne fonctionne pas

Erreur .Range("A1").Select

Merci pour votre aide

Eric

Bonjour,

supprime le point (.) devant le "range", tu es dans un bloc "with"...

bonne journée

@+

Bonjour

test cela enfin de macro

    With ActiveCell.FormulaR1C1 = "=R[1]C[-19]"
    ' Range("A1").Select
    End With
    Range("A1").Select
    End Sub

EDIT

Bonjour Pierrot