Sub toto()
Dim coin_haut_gauche As String, tablo()
coin_haut_gauche = "$F4"
tablo = Intersect(Range(coin_haut_gauche).CurrentRegion, Range(Range(coin_haut_gauche), Cells(Rows.Count, Columns.Count))).Value
'
' TRAITEMENT DES DONNEES de [B]tablo[/B]
'
Intersect(Range(coin_haut_gauche).CurrentRegion, Range(Range(coin_haut_gauche), Cells(Rows.Count, Columns.Count))).Value = tablo
End Sub