Dim I As Integer ' I va servir de compteur pour déterminer la première ligne vierge
I = 2
While Sheets("donnees recue").Cells(I, 1) <> "" ' Tant que A en ligne I n'est pas vide
I = I + 1 ' J'incrémente I
Wend ' Je sors et peux utiliser la valeur de I
Sheets("recept tel").Copy Before:=Sheets(1)
Sheets("recept tel (2)").Range("C3:C31").Copy
Sheets("recept tel (2)").Range("C3:C31").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("recept tel (2)").Range("C3:C31").Copy
Sheets("donnees recue").Cells(I, 1).PasteSpecial Paste:=xlPasteAll, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=True ' I me permet de choisir la bonne ligne de copie
Application.CutCopyMode = False
Sheets("recept tel (2)").Delete
Dim Cellule As Range
For Each Cellule In Sheets("recept tel").Range("C7:C31")
If Left(Cellule, 1) <> "=" Then
Cellule.ClearContents
End If
Next
Sheets("recept tel").Range("C3").Select