Supprimer + inputbox + formule Ctrl F

Sub Bouton1_Cliquer()

Dim resultat As String
resultat = InputBox("Contact number", "Delete Contact")

Dim Pref As String, Num As Integer, DerNom As String, NouvNom As String, DerCol As Integer

Pref = "Contract "
DerNom = Worksheets(Worksheets.Count).Name
'récupération du N° feuille
Num = resultat
'création nom de feuille
NouvNom = Pref & Num
'Suppression de la feuille (Marche pas)
Application.DisplayAlerts = False
Sheets("NouvNom").Delete

'renommage des nouvelles feuilles (Renome tous les onglets et pas que ceux ititulé contact)
Dim Feuille As Worksheet, Boucle As Long
Boucle = 1
For Each Feuille In Worksheets
Feuille.Name = ("Contract ") & Boucle
Boucle = (Boucle + 1)
Next Feuille

'Suppr colonne feuille Summary (La recherche crtl+F ne s'active pas)
Sheets("Summary").Select
Cells.Find(What:=NouvNom, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Resize(10).Select
Selection.Delete

'Suppr colonne feuille Data (Idem...)
Sheets("Data").Select
Cells.Find(What:="NouvNom", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Resize(16).Select
Selection.Delete

End Sub

Cliquez pour agrandir...