Salut Iliess,
colle ceci dans la feuille concernée, clique sur [H1]... et regarde ce qui se passe!
Sans fichier pour tester... , ça peut être rigolo!
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'
If Target.Address = [H1].Address Then
iRowA = Range("A" & Rows.Count).End(xlUp).Row
'
For x = 3 To iRowA
iRowO = Range("O" & Rows.Count).End(xlUp).Row
For y = 3 To iRowO
If Cells(x, "G") = Cells(y, "O") Then
Range("O" & y & ":U" & y).Copy Destination:=Range("H" & x & ":N" & x)
Range("O" & y & ":U" & y).Delete shift:=xlUp
Exit For
End If
Next
Next
End If
'
End Sub
A+