Sub Traiter()
Dim Wbk As Workbook
Dim Fichier
Dim lig As Long
Fichier = Application.GetOpenFilename("Excel Files (*.xlsm*), *.xlsm*")
If Fichier <> False Then
Set Wbk = Workbooks.Open(Fichier)
Recap Wbk.Worksheets(2).Range("A3")
Wbk.Activate
With Sheets("Data")
For lig = .Range("A" & Rows.Count).End(3).Row To 3 Step -1
If .Cells(lig, 1) = "" Then .Rows(lig).Delete
Next
End With
Wbk.Save
Application.ScreenUpdating = True
MsgBox "Traitement terminé..."
Wbk.Close True
Set Wbk = Nothing
End If
End Sub