Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim strÉtinéaire As String
Dim bytÉtinéaireNo As Byte
Dim vrtÉtinéaire As Variant, vrtPlage As Variant
vrtÉtinéaire = Array('$J$9:$O$5', '$J$9:$N$2', '$Y$18:$Y$9') ' Étinéaire possible
vrtPlage = Array('$B$3:$D$14', '$F$3:$H$14', '$J$3:$L$18') ' Plage de route correspondante aux étinéaires possible
With Target
Select Case .Address
Case '$J$9', '$O$5', '$N$12', '$Y$18', '$Y$9' ' Mettre toute les adresses qui servent pour le étinéraires ici
If Not Click_Variable(0) = Empty Then ' Remplit la vaiable des étinéaires
Click_Variable(0) = .Address
Else
Click_Variable(1) = .Address
End If
If Not Click_Variable(0) = Empty And Not Click_Variable(0) = Empty Then ' Si la variable est pleine alors l'étinéaires est complètes
strÉtinéaire = Click_Variable(0) & ':' & Click_Variable(1)
' Faire le tour des étiniaire possible pour comparer avec le choix de l'utilisateur
For bytÉtinéaireNo = 0 To UBound(vrtÉtinéaire)
If vrtÉtinéaire(bytÉtinéaireNo) = strÉtinéaire Then
' Lorsque trouve, copy l'étinéaire a l'endroit voulut. Mais je ne sais pas comment tu l'évalue ?
ThisWorkbook.Sheets('Route').Range(vrtPlage(bytÉtinéaireNo)).Copy _
Destination:=ThisWorkbook.Sheets('Profil').Cells(4, 4)
End If
Next bytÉtinéaireNo
' Ré-initialise la variable pour le prochain choix
Click_Variable(0) = Empty
Click_Variable(1) = Empty
End If
End Select
End With
End Sub