Private Sub CommandButton1_Click() 'bouton MAJ
Dim i As Variant
With Feuil2 'CodeName
.Cells.Clear 'RAZ
.[A1].QueryTable.Refresh BackgroundQuery:=False 'actualise la requête
i = Application.Match("Journal", .[A:A], 0)
If IsError(i) Then [B2,B5:J35] = "": Exit Sub
[B2] = .[A39]
[B5:J35] = .Cells(i, 1).CurrentRegion.Resize(, 9).Offset(1).Value
End With
End Sub