Bonjour,
A mettre dans le module de la feuille DOM :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column <> 8 Then Exit Sub
Worksheets("DOM1").Range("A3:G3").Value = Range(Cells(Target.Row, 1), Cells(Target.Row, 8)).Value
Cancel = True 'pour ne pas entrer en saisie dans la cellule
End Sub