Bonjour à Tous,
La feuille sur laquelle je souhaite faire fonctionner cette macro se compose ainsi
L1 à 10 : Texte de présentation
L11 : Titre de mes colonnes A à M
En colonne L le titre est "TYPE"
La plage sur laquelle cette macro doit fonctionner est A12:M2012

Ci-dessous le début de mon code, avec au centre "mon ignorance" !
Merci de votre aide
Lenul

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
Sub selection()
'
    Sheets("Prospects").Select
    selectiontype = InputBox("Entrez le nom du TYPE")
    Set colonne = Range("L12:M2012").Find(waht:=selectiontype, LookIn:=xlValue, lookat:=xlWhole)
        If colonne Is Nothing Then
            MsgBox "désolé ce TYPE n'existe pas"
        Else
 
'C'est là que je voudrais dire: "on sélectionne les colonnes
'A à M de toutes les lignes qui ont dans la colonne TYPE
'le TYPE saisi dans InputBox.
'Mais en VBA je sais pas faire...
'Ensuite le code se poursuit comme ci-dessous:
 
            selection.Copy
            Sheets("Recap").Select
            Range("A1").Select
            selction .Paste
        End If
End Sub