Sub Bouton1_Cliquer() For i = 3 To Range("E65536").End(xlUp).Row
If Application.WorksheetFunction.CountIf(Range("K2:K5"), Cells(i, 5)) = 1 Then
Cells(i, 2).Value = Cells(i, 8) & Cells(i, 5)
Else
Cells(i, 2).Value = Cells(i, 9) & Cells(i, 5)
End If
Next
End Sub