Bonjour je cherche à copier à la suite des données sur une ligne donc à chaque fois à la première cellule vide d'une ligne.

Voici le code que j'ai essayé de faire mais rien ne ce passe.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub CodeAna()
Dim i As Long, derniereligne As Long
With ThisWorkbook
derniereligne = .ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To derniereligne
If .ActiveSheet.Range("P" & i) = .ActiveSheet.Range("P" & i + 1) Then
    .Worksheets("Feuil2").Cells(4, Columns.Count).End(xlToLeft).Value = .ActiveSheet.Range("S" & i).Value
Else
Exit For
End If
Next
End With
End Sub