If IsNumeric(Mid(Plage.Address, i, 1)) Then
Else
Data1 = Data1 & Mid(Plage.Address, i, 1)
End If
Next i
Set Plage1 = Sheets(Plage.Worksheet.Name).Range(Replace(Data1, "$", ""))
MsgBox ("La plage que vous avez séléctionnez est : " & Plage1.Address(0, 0))