"Bonjour"
j'aimerais automatiser ce code dans mon tableau et je m'explique
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub Vierge()
Dim i As Byte, j As Long, Lig As Integer
Dim Mot As String, firstAddress As String
Dim Plage As Range, c As Range
 
Mot = InputBox("Mot à rechercher ?")
If Mot = "" Then Exit Sub
 
'Selectionne la zone de recherche du mot
Set Plage = Range(Sheets("Empl").Range("J8"), Sheets("Empl").Range("J65536").End(xlUp))
 
'selectionne la ligne du début du récapitulatif (à partir quelle ligne on va pouvoir insérer les données)
Lig = Sheets("Vierge").Range("A65536").End(xlUp).Row + 1
 
For Each c In Plage
    If InStr(1, c, Mot) <> 0 Then
        c.EntireRow.Range("A1:G1").Copy Sheets("Vierge").Cells(Lig, 1)
        Lig = Lig + 1
    End If
Next c
 
Sheets("Vierge").Activate
Range("A17").Activate
Application.ScreenUpdating = True
End With
End Sub
En retrant le mot recherché de l' InputBox, est ce que le mot recherché peut être copié automatiquement dans mon code. Au lieu de sheet Vierge, ce serait le mot recherché. Ainsi, les résultats de la recherche iront dans la bonne feuille.
merci