Dim i As Long
Dim j As Long
Dim em As Long
i = 1
j = 1
Sheets(1).Activate
Range("A" & i).Select
Do While i < 36394 'à ajuster à la dernière ligne contenant "Email"
For j = i To i + 12 'on considère qu' "email" apparait sur une plage de max 12cellules
If Range("A" & j).Value Like "Email" Then
em = j
End If
Next j
Range("A" & i & ":A" & em).Select ' c'est ici que le débogueur se bloque
Selection.Copy
Sheets(2).Activate
Range("B" & i).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
i = em + 3
Loop
End Sub