'Supprimer ligne si colonnes H ou D vides
Dim oda, f, ln, nCol
oda = Array(Sheets("ODA MENS"), Sheets("ODA HOR"), _
Sheets("CAP Congés (MENS)"), Sheets("CAP Congés (HOR)"))
For Each f In oda
If f.Name = "ODA MENS" Or f.Name = "ODA HOR" Then
nCol = "H"
Else
nCol = "D"
End If
For ln = f.Range(nCol & Rows.Count).End(xlUp).Row - 4 To 7 Step -1
If IsError(f.Range(nCol & ln)) Or IsEmpty(f.Range(nCol & ln)) Then
f.Rows(ln).Delete shift:=xlUp
End If
Next ln
Next f