macro selection selon date

Salut.

voici une macro qui devrait fonctionner.

Sub recopie()
With Sheets(2)
.Cells.ClearContents
.Cells(1, 1) = "Début"
.Cells(1, 2) = "Fin"
.Cells(1, 21) = "Total"
For i = 1 To 18
.Cells(1, i + 2) = i
Next
End With
With Sheets(1)
For rang = 2 To .Range("a1").End(xlDown).Row
colonned = .Cells.Find(.Cells(rang, 1).Value).Column
colonnef = .Cells.Find(.Cells(rang, 2).Value).Column
compteur = 2
Sheets(2).Cells(rang, 1) = .Cells(rang, 1)
Sheets(2).Cells(rang, 2) = .Cells(rang, 2)
For colonne = colonned To colonnef
compteur = compteur + 1
Sheets(2).Cells(rang, compteur) = .Cells(rang, colonne)
somme = somme + .Cells(rang, colonne)
Next
Cells(rang, 21) = somme
Next
End With
End Sub

A plus

C'est exactement ce qu'il me fallait.
Merci