Problème de Range.select

Bonsoir,

Encore une erreur 1004, je vais commencer par croire que c'est mon VBA qui est particulièrement capricieux

Voici la code :

Dim Ccheuse As Range
Dim Position As String
Dim Position2 As String

    With Worksheets("Base Cours").Range("AA1:BO1")
        Set Ccheuse = .Find("Clôture AI.PA", LookIn:=xlValues)
        If Ccheuse Is Nothing Then
            MsgBox " Erreur de saisie"
        Else
          Ccheuse.Offset(1, 0).Select
          Position = ActiveCell.Address
          Position2 = ActiveCell.Offset(20, 0).Address
        End If
    End With
Range("Position:Position2").Select
End Sub

Le problème est au niveau de la ligne avant le End Sub de type 1004
Quand je remplace les position par des valeurs type : A2, aucun probléme.
Et quand je met des msgbox pour connaitre les valeurs de position, ca marche elles sont en format: $A$2

Merci d'avance !

Salut Lapin,

comme ceci, peut-être...

Range(Position & ":" & Position2).Select

A+

ARGHH oui ...

C'est pas la première fois que je les oublie en plus !

Merci beaucoup Curulis !