Sub LoadL()
'Declaration des variables
Dim model As Variant, comp As String, neuf As String
'Preparation requette
strSQL = "SELECT [Liste$A3:T].[Ref], [Liste$A3:T].[Label], [Liste$A3:T].[QTE], 0, IIF([Liste$A3:T].[Niveau11] = 'Sys', 1, 0) as Percent1, 0 FROM [Liste$A3:T] UNION SELECT [Liste$A3:T].[Ref], [Liste$A3:T].[Label], [Liste$A3:T].[QTE], 0, IIF([Liste$A3:T].[Niveau11] = 'Sys', 1, 0) as Percent1, 0 FROM [Liste$A3:T]" _
& "UNION SELECT [Liste$A3:T].[Ref], [Liste$A3:T].[Label], [Liste$A3:T].[QTE], 0, IIF([Liste$A3:T].[Niveau11] = 'Sys', 1, 0) as Percent1, 0 FROM [Liste$A3:T]"
closeRS
OpenDB
rs.Open strSQL, cnn, adOpenKeyset, adLockOptimistic
If rs.RecordCount > 0 Then
pasteSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).CopyFromRecordset rs
Else
MsgBox "Error.", vbExclamation + vbOKOnly
Exit Sub
End If
End Sub