Bonjour à tous,
Je coince dans un code, que voici :
sdr33:
If Mid(Sheets("Import Brut").Cells(1, 1).Value, 8, 1) = 3 Then
Sheets.Add.Move After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = "Données analisée"
Sheets("Données analisée").Activate
Sheets("Données...