Bonjour,
Pour Import_MO, essaie ainsi.
Sinon que ce soit VBA ou Power Query, un minimum de rigueur est demandé.
Cdlt.
Sub import_MO()
Dim sh As Worksheet, sh2 As Worksheet, sh3 As Worksheet
Dim i As Long
Set sh = Worksheets("F1")
Set sh2 = Worksheets("F2")
Set sh3 = Worksheets("RESULTAT")
For i = 3 To sh3.Cells(Rows.Count, 1).End(xlUp).Row
If Not IsError(Application.Match(Range("A" & i), sh.Range("X:X"), 0)) Then
sh3.Range("Q" & i) = Application.Index(sh.Range("AA:AA"), Application.Match(Range("A" & i), sh.Range("X:X"), 0))
sh3.Range("R" & i) = Application.Index(sh.Range("AB:AB"), Application.Match(Range("A" & i), sh.Range("X:X"), 0))
Else
sh3.Range("Q" & i) = Application.Index(sh2.Range("AA:AA"), Application.Match(Range("A" & i), sh2.Range("X:X"), 0))
sh3.Range("R" & i) = Application.Index(sh2.Range("AB:AB"), Application.Match(Range("A" & i), sh2.Range("X:X"), 0))
End If
Next i
End Sub