Private Sub CommandButton1_Click()
Dim c As Range
Dim ligne As Integer
Dim drcolonne As Integer
Dim feuille As Byte
feuille = Month(TextBox1.Text)' pour automatiser la recherche par mois
drcolonne = ActiveSheet.UsedRange.Columns.Count
ligne = Sheets("Base").Range("a1").End(xlDown).Count + 1
With Workbooks("Fichier 2013.xls").Sheets("Juill13")
For Each c In .Range("A6:AE6")
If c.Text = TextBox1 Then
Sheets("Base").Range("a" & ligne) = c.text
Sheets("Base").Range("b" & ligne) = .Cells(7, c.Column)
Sheets("Base").Range("c" & ligne) = .Cells(8, c.Column)
Sheets("Base").Range("b" & ligne) = .Cells(9, c.Column)
Sheets("Base").Range("c" & ligne) = .Cells(10, c.Column)'etc...
Next
End With
End Sub