Sub cloture_TEST()
Dim i As Integer, j As Integer, Dc As Integer
Set Ws9 = Sheets("CA")
Set Ws10 = Sheets("Archive_CA")
With Ws10
For i = 2 To 13
For j = 2 To 31
If Ws10.Cells(i, j) <> "" Then
Dc = Ws10.Cells(i, Columns.Count).End(xlToLeft).Column
Ws10.Range(Cells(i, 2), Cells(i, Dc)).Copy Ws10.Cells(i, 3) 'ligne erreur'
Ws10.Cells(i, 2) = Ws9.Cells(i, 3)
Exit For
End If
Next
Next
End With
For i = 2 To 13
Ws9.Cells(i, 4) = Ws9.Cells(i, 3): Ws9.Cells(i, 3) = ""
Ws9.Cells(i, 8) = Ws9.Cells(i, 7): Ws9.Cells(i, 7) = ""
Next
Set Ws9 = Nothing
Set Ws10 = Nothing
End Sub