'Mettre à jour la feuille
Sheets("Suppression_Statut45").Activate
Range("Tableau_Base_de_données2.accdb3[Colonne2]").Select
Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
Sheets("Production_Schedule").Activate
'formule_
Range("AH5").FormulaR1C1 = _
"=IF(ISERROR(VLOOKUP([@N°],'Suppression_Statut45'!C5:C8,4,FALSE)),"""",VLOOKUP([@N°],'Suppression_Statut45'!C5:C8,4,FALSE))"
'Retirer le filtre
Range("A5").AutoFilter
'Supprimer les lignes
On Error Resume Next
For i = [AH65000].End(xlUp).Row To 2 Step -1
If Cells(i, 34) <> "" Then Rows(i).Delete
Next i
'Remettre le filtre
Range("A5").AutoFilter
'effacer_formule
Range("AH5", Range("AH65536").End(xlUp)).ClearContents