Sub TheColonneAsByte()
Dim Col As Byte
Col = Range('A7').End(xlToRight).Column - 1
MsgBox 'Donc Col devrait me retourner la bonne dernière colonne pleine sur la droite' & vbCrLf & _
'sauf qui faut que j'enlève moins un à la dernière colonne trouvée' & vbCrLf & _
'pour pas exploser la Variable Byte et qu'ensuite j'en tienne compte' & vbCrLf & _
'pour rajouter un un à cette Byte si je veux pas me planter de Colonne ce qui ferait : ' & vbCrLf & vbCrLf & _
Left(Cells(1, Col + 1).Address(0, 0), (Col + 1 < 27) + 2) & vbCrLf & vbCrLf & vbCrLf & _
vbTab & 'PS en espérant qu'on tombe pas sur la Colonne ''Q'' mort de rire', vbInformation, '@+Thierry LOL'
End Sub