Bonsoir à tous,
Metmo pour ce que tu demandes Range("A1:B" & n).
Ensuite tu n'as que 65536 lignes sous Excel le cells(i,1) va te renvoyer une erreur tu peux utiliser afin de récupérer la dernière ligne utilisée comme suit
with sheets("SGSN")
for i=1 to .[A65536].end(xlup).row
if .cells(i,1)="= "BRON21" Then
.Range("A1:B" & i-1).cut
sheets.add
activesheet.paste
Application.CutCopyMode = False
end if
end with
Je ne sais pas si c'est vraiment ce que tu veux, il me semble bizarre de créer une nouvelle feuille à chaque fois mais bon
A+++