Function PlageVide(PlageObservee As Range) As Boolean
Dim i As Long
Dim j As Long
PlageVide = True
With PlageObservee
For i = 1 To .Rows.Count
For j = 1 To .Columns.Count
If .Item(i, j) <> "" Then
PlageVide = False
Exit Function
End If
Next
Next
End With
End Function