Cher Mobil,
merci de m'aider, je vais faire un copier coller de cette macro
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Sh As Worksheet
If Target.Column = 2 And Target.Row > 1 And Target.Offset(0, -1) <> "" Then
Set Sh = ActiveSheet
Cancel = True
Application.ScreenUpdating = False
On Error Resume Next
Sheets(Target.Offset(0, -1).Value).Select
If Err.Number > 0 Then
Sheets("Master").Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = Target.Offset(0, -1)
End If
On Error GoTo 0
With ActiveSheet
.Range("A2") = Cells(Target.Row, "B") ' Dossier
' .Range("A12") = Cells(Target.Row, "C") & " " & Cells(Target.Row, "D") & " " & Cells(Target.Row, "E") 'Adresse
.Range("A5") = Cells(Target.Row, "C") ' date création
.Range("B5") = Cells(Target.Row, "F") ' Taille
.Range("C2") = Cells(Target.Row, "A") ' Auteur
.Range("C5") = Cells(Target.Row, "I") ' Prénom
'' Cells(Target.Row, "J").Copy .Range("D7") ' Email
.Range("C7") = Cells(Target.Row, "D") ' répertoire
End With
Sh.Select
End If
End Sub
Amicalement, Papy Pierrot
Merci.