Private Sub CommandButton30_Click()
Dim nom$, a As Range
nom = InputBox("Saisissez le Nom du Locataire", "Sélection du Locataire", xpos:=300, ypos:=300)
Set a = [CN6:CN57].Find(nom, LookIn:=xlValues, LookAt:=xlWhole)
If a Is Nothing Then MsgBox "Ce Nom n'existe pas dans la Liste des Locataires ! Resaisissez un Nom.": Exit Sub
Union(a, a.Offset(, -85), a.Offset(, -79).Resize(, -79)).Select
'a.Select
End Sub