En fonction de la valeur du combobox

Bonjour à toutes et à tous,

J'aimerai realiser une macro qui en fonction de la valeur de combobox me copie les lignes de ma plage contenant la valeur de ma combobox

Je m'explique. Si la valeur de la combobox est égale à 2013 alors je veux sélectionner les lignes de ma plage ou il y'a 2013. La macro ne fonctionne pas, elle me selectionne tout sans faire le filtre sur 2013. Est-ce que quelqu'un pourrait m'aider ?!

Voici mon code :

Private Sub CommandButton1_Click()
Dim maPlage As Range, Cel As Range
Dim i As Integer, j As Integer, DernLigne As Integer

DernLigne = Range("I" & Rows.Count).End(xlUp).Row
Set maPlage = Range("B4:I" & DernLigne)

For Each Cel In maPlage

   If Cel.Value = UserForm1.ComboBox1.Value Then
       Cel.Resize(, 9).Offset(, 0).Select
       Worksheets("DATA").Range("B4:I" & DernLigne).Select
   Else
      Worksheets("DATA").Range("B4:I" & DernLigne).Copy Destination:=Worksheets("Sheet2").Range("B4:I" & DernLigne)
   End If

Next

  MsgBox "File(s) have been exported!", vbInformation, "Organic Software 2015"

Unload UserForm1

End Sub

Bonjour

Possible de voir votre fichier (sans données confidentielles) car là le code cache ou montre des lignes uniquement

Cordialement

Oui bien entendu

Re

Merci pour le fichier mais il me faudrait quelques explications sur ce qui est attendu

Crdlt

Merci, mais j'ai lâché l'affaire Merci du temps que vous m'avez accordé !