hum !
Mes capacités de compréhension ne sont pas au top !!!
Je n'arrive pas à "comprendre" le fonctionnement
Si tu as le temps évidemment peux tu me préciser à quoi servent ces lignes
1/ Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
2/ If Target.Count = 1 And Target.Hyperlinks.Count Then
DoEvents
que veut dire If Target.Count = 1
3/ With Sheets("FAX TRANSPORTEUR")
.Range("b5").Value = Target.Offset(0, -6).Value
.Range("a15").Value = Target.Offset(0, -4).Value
.Range("b15").Value = Target.Offset(0, -5).Value
.Range("C15").Value = Target.Offset(0, -2).Value
.Range("d15").Value = Target.Offset(0, -1).Value
que veut dire Target.Offset(0, -6).Value
4/ 'Application.Goto ActiveCell, True
Je suis désolé de t'embêter mais j'aime bien comprendre ce que je fais, et non pas utiliser les compétences des autres sans y réfléchir.
Encore merci de ton aide