SearchOrder:=xlNext
numLigneVide = ActiveSheet.Columns(1).Find("").Row
deuxiemelignevide = ActiveSheet.Range("A" & numLigneVide + 1 & ":A" & Application.Rows.Count).Find("").Row
Dim x As Range
With ActiveSheet.Columns(1)
Set x = .Find("", .Find("", , xlValues, xlWhole, , , False), xlValues, xlWhole, , , False)
End With
If Not x Is Nothing Then MsgBox "2ème cellule vide sur la ligne : " & x.Row