Bonjour,
à tester,
Sub Transfert()
Dim sh1 As Worksheet, sh2 As Worksheet
Set sh1 = Sheets("OPTIONS & ACCORDS")
Set sh2 = Sheets("DOSSIERS CONFIRMES")
For i = 2 To sh1.Cells(Rows.Count, "A").End(xlUp).Row
If sh1.Cells(i, "K") = "CONFIRME" Then
rw = sh2.Cells(Rows.Count, "A").End(xlUp).Row + 1
sh2.Range("A" & rw & ":L" & rw) = sh1.Range("A" & i & ":L" & i).Value
End If
Next i
End Sub