Re : Sélection étendue jusqu'à mot clé
Merci Philippe,
Par contre, suite aux lignes de codes que j'ai rajouté la macro s’exécute lentement. Je pense que les lignes que j'ai rajouté ne sont pas correctes, il doit y avoir quelque chose qui ralenti l’exécution à partir de la feuille Alignement :
Sheets("FCL IMP").Select
Range("A2").Select
For Each cellule In Range("A3:U" & Range("T65535").End(xlUp).Row)
If UCase(cellule) = "<>" Then
Range(Cells(1, 1), Cells(cellule.Row - 1, 20)).Copy
Exit For
End If
Next cellule
Sheets("Alignement").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1:U1").Delete
Selection.Copy
Sheets("Structure").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A30").Select
Sheets("FCL IMP").Select
'Supprime lignes dans Onglet Alignement
Sheets("Alignement").Select
Range("A1:U25").Select
Selection.ClearContents
Range("A1").Select
Sheets("FCL IMP").Select
Range("A2").Select
For Each cellule In Range("A2:U" & Range("T1000").End(xlUp).Row)
If UCase(cellule) = "<>" Then
Range(Cells(2, 1), Cells(cellule.Row, 21)).Delete
Exit For
End If
Next cellule
End Sub