ayi Cells vers adresse : Dim adresse As String adresse = Cells(1, 1).Address(False, False) ' retourne "A1" Adresse vers Cells : Dim rng As Range Set rng = Range("A1") Dim ligne As Long, colonne As Long ligne = rng.Row ' 1 colonne = rng.Column ' 1