Salut Mickael,
Pour ta gouverne, pense à joindre un fichier avec tes futures demandes : ça nous aide beaucoup et tu auras plus de réponses... et de solutions!
Le code suivant doit être collé dans le module VBA de la première feuille.
Dans le code, tu dois corriger "XXX" par le nom de la deuxième feuille.
Tu vois l'utilité d'un fichier?
Donc, sauf erreur puisque non testé...
Private Sub Worksheet_Change(ByVal Target As Range)
'
If Not Intersect(Target, Range("G:G")) Is Nothing Then
If UCase(Target) = "OUI" Then
iTRow = Target.Row
With Worksheets("XXX")
iRowB = .Range("B" & Rows.Count).End(xlUp).Row + 1
For x = 1 To 4
.Cells(iRowB, Choose(x, 2, 3, 4, 11)) = Cells(iTRow, Choose(x, 3, 2, 4, 6))
Next
End With
End If
End If
'
End Sub
A+