Salutation!!!!
Je ne comprend pas comment faire pour remplacer
Cells(18, 19) dans la fonction     Range(cell1, cell2).select
Par une Variable       LaCellule
Qui conteindrait       «18, 19 »
 
 
Voici ce que j'ai fais!
 
Dim LaDerniereLigne, LaDerniereColonne, LaCellule As Variant
LaDerniereLigne = Selection.Row         'ex:=19
LaDerniereColonne = Selection.Column    'ex:=18
       
'Ex;1           LaCellule = "Cells(" & LaDerniereLigne & ", " _
'& LaDerniereColonne & " )"
'Resultat       LaCellule = "Cells(19, 18)"
'echec
     
'Ex;2           LaCellule = LaDerniereLigne & ", " & LaDerniereColonne
'Resultat       laCellule = "19, 18"
     
     
Range(Cells(1, 1), Cells(LaCellule)).Select
'Ca ne donne que la première ligne de A1 à R1 en selection
     
' Si j'écrit ceci, ca marche
Range(Cells(1, 1), Cells(18, 19)).Select
'Ca donne A1 à R18 en selection
 
Merci à l'avance!
 
 
 

Parce que Cells(18,19) prend 2 int et nom pas un string "18, 19"
 
C'est pour ça que ton astuce laCellule = "19, 18" ne fonctionne pas...

Merci beaucoup! Celà fonctionne très bien maintenant.