@pierrejean @soan
On aurait donc ceci comme code ?
Parce que le déboggage s'arrête à la ligne set c et j'ai une erreur d'éxécution 9 m'indiquant que l'indice n'appartient pas à la selection à partir de la ligne en gras alors que la feuille se nomme bien "Récap"
Sub test()
Dim j As Integer, i As Integer, lig As Integer, dlg As Integer, ws As Worksheet
With Sheets("Récap")
Set c = .Cells.Find("*", LookIn:=xlValues)
If Not c Is Nothing Then
dlg = c.Row
If dlg = 1 Then dlg = 2
Else
MsgBox ("pas trouvé")
Exit Sub
End If
With Sheets("IntuneWindowsDevices14092020")
For j = .Range("H" & .Rows.Count).End(xlUp).Row To 2 Step -1
For Each ws In ThisWorkbook.Worksheets
If ws.CodeName = "Feuil1" Or ws.CodeName = "Feuil2" Or ws.CodeName = "Feuil3" Then
On Error Resume Next
lig = ws.Cells.Find(.Range("H" & j), LookIn:=xlValues, lookat:=xlWhole).Row
If lig > 0 Then
dlg = ws.Cells.Find("*", LookIn:=xlValues).Row + 1
ws.Range("A" & i & ":B" & i).Copy Sheets("Récap").Range("A" & dlg)
ws.Range("D" & i).Copy Sheets("Récap").Range("C" & dlg)
End If
End If
Next ws
Next j
End With
End With
End Sub