Sub pleinllecul()
'
' pleinllecul Macro
' marre
'
' Touche de raccourci du clavier: Ctrl+i
'
On Error Resume Next
If (Sheets(Array( "AT_GAZ", "1_AT_GAZ", "2_AT_GAZ"))) = False Then Call BT
If Not IsError(Sheets("1_AT_GAZ")) And ("2_AT_GAZ") Then Call BT2AT
If IsError(Sheets("AT_GAZ")) Then Call BTEXE
On Error Resume Next
End Sub