Salut Merwan,
Salut fg2b,
m'étonnerait que ce système soit pérenne mais bon...
Un double-clic sur la feuille 'BDD_CONNECTEE' démarre la macro.
Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'
Dim tTab, sNom$, iIdx%, x%, y%
'
Cancel = True
tTab = Range("A2:C" & Range("A" & Rows.Count).End(xlUp).Row).Value
For x = 1 To UBound(tTab, 1)
If tTab(x, 2) <> sNom And tTab(x, 2) <> "" Then
sNom = CStr(tTab(x, 2))
iIdx = 0
With Worksheets(sNom)
For y = x To UBound(tTab, 1)
If tTab(y, 2) = sNom Then
tTab(y, 2) = ""
iIdx = iIdx + 1
If .Cells(1, iIdx) = "" Then .Cells(1, iIdx) = tTab(y, 3)
End If
Next
End With
End If
Next
'
End Sub
A+