bonjour à tous je n'y connais pas grd chose en macro
je n'ai fais que copie une macro et cette derniere ne marche pas
mm avec la logique qui me permet un peu de comprendre a quoi corresponde les ordres de la macro je ne sais pas ce qui cloche une ame cgharitable pour me donner son avis ? :S
décdément je rame mes excuses pour cette nouvelel tentative <==honte à moi :unsure: [file name=liste.zip size=12446]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/liste.zip[/file]
Public Sub vev()
Dim derligne As Integer
Dim i As Integer
With Sheets('Base de Données')
derligne = .Range('a65536').End(xlUp).Row + 1
For i = 1 To 7
.Cells(derligne, i) = Cells(i, 2)
Cells(i, 2).ClearContents
Next i
End With
End Sub