Salut Laliz,
Un double-clic en 'BASE' [A:B] transcrit les infos demandées dans 'FORMULAIRE'.
Le code se trouve dans le module de 'BASE'
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'
If Not Intersect(Target, Range("A2:B" & Rows.Count)) Is Nothing Then
If Target <> "" Then
Cancel = True
iRow = Target.Row
With Worksheets("Formulaire")
For x = 1 To 5
.Range(Choose(x, "H3", "C4", "E9", "H11", "D13")).Value = Range(Choose(x, "A", "B", "AI", "AJ", "AL") & iRow).Value
Next
End With
End If
End If
'
End Sub
A+